OFFSET
1,1
EXAMPLE
The Stern polynomial B(63,t) (see A125184) is x^5 + x^4 + x^3 + x^2 + x + 1, which factorizes as (x+1)(x^2 - x + 1)(x^2 + x + 1), where second factor has a negative coefficient, therefore 63 is included in this sequence.
PROG
(PARI)
ps(n) = if(n<2, n, if(n%2, ps(n\2)+ps(n\2+1), 'x*ps(n\2)));
is_A389915(n) = if(!(n%2), 0, my(p=ps(n), f=factor(p)); for(i=1, #f~, if(0>vecmin(Vec(f[i, 1])), return(1))); (0));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 04 2025
STATUS
approved
