A365462 - OEIS

A365462

a(n) = A356867(n) - n.

0, 0, 0, 1, -1, 0, 3, 0, 0, -3, 3, 3, 12, 6, -3, 34, -1, 0, 16, 8, 9, 103, 17, 0, 75, 6, 0, -17, -7, -9, 24, 12, 9, 36, 21, 9, 12, 60, 36, 135, 99, 18, 207, 36, -9, 199, 149, 102, 576, 150, -3, 448, 11, 0, 22, 54, 48, 217, 29, 24, 289, 50, 27, 279, 425, 309, 808, 212, 51, 1180, 89, 0, 1152, 318, 225, 3049, 323, 18

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,7

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..19683

PROG

(PARI)

up_to = 19683;

A356867list(up_to) = { my(v=vector(up_to), met=Map(), h=0, ak); for(i=1, #v, if(1==vecsum(digits(i, 3)), v[i] = i; h = i, ak = v[i-h]; forprime(p=2, , if(3!=p && !mapisdefined(met, p*ak), v[i] = p*ak; break))); mapput(met, v[i], i)); (v); };

v356867 = A356867list(up_to);

A356867(n) = v356867[n];

A365462(n) = (A356867(n)-n);

CROSSREFS

Cf. A356867, A364958 (positions of 0's), A365463.

Cf. also A364499.

Sequence in context: A267794 A282499 A216194 * A279168 A111787 A200524

Adjacent sequences: A365459 A365460 A365461 * A365463 A365464 A365465

KEYWORD

sign

AUTHOR

Antti Karttunen, Sep 15 2023

STATUS

approved