OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 5*A391341(n).
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_A391345(n) = (!(n%5) && polisirreducible(ps(n)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 12 2025
STATUS
approved
