OFFSET
1,2
COMMENTS
Conjecture: All terms are of the form k*3^n, where k = 1,2,8,91, and n >= 0. - David James Sycamore, Aug 16 2023
FORMULA
{k | k==A356867(k)}.
PROG
(PARI)
up_to = 3^14;
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];
isA364958(n) = (A356867(n)==n);
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore and Antti Karttunen, Sep 15 2023
STATUS
approved