OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
EXAMPLE
55 = 5*11, and Stern polynomial B(55,x) = x^4 + 2*x^3 + 4*x^2 + 3*x + 1 is irreducible, therefore 11 is included in this sequence.
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_A391341(n) = polisirreducible(ps(5*n));
CROSSREFS
After 1, a subsequence of A391347.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 12 2025
STATUS
approved
