OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..745
PROG
(PARI)
memo_for_ps = Map();
ps(n) = if(n<2, n, my(v); if(mapisdefined(memo_for_ps, n, &v), v, v = if(n%2, ps(n\2)+ps(n\2+1), 'x*ps(n\2)); if(n%2, mapput(memo_for_ps, n, v)); (v))); \\ Only memoize on odd n...
is_A391340(n) = (n%2 && (ps(3*n)==ps(3)*ps(n)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 08 2025
STATUS
approved
