Antti Karttunen, <a href="/A365462/b365462_1.txt">Table of n, a(n) for n = 1..19683</a>
Antti Karttunen, <a href="/A365462/b365462_1.txt">Table of n, a(n) for n = 1..19683</a>
proposed
approved
editing
proposed
Antti Karttunen, <a href="/A365462/b365462_1.txt">Table of n, a(n) for n = 1..19683</a>
approved
editing
proposed
approved
editing
proposed
Cf. also A364499.
allocated for Antti Karttunen
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
1,7
(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];
allocated
sign
Antti Karttunen, Sep 15 2023
approved
editing
allocated for Antti Karttunen
allocated
approved