A391564 Numerator of the constant term of the remainder obtained when Stern polynomial B(n,x) is divided by B(5,x).

1, -1, 1, 1, 0, -1, 3, -1, 1, 0, -1, 1, 1, -3, 5, 1, 1, -1, 1, 0, -1, 1, -1, -1, 5, -1, 1, 3, 1, -5, 11, -1, 3, -1, 0, 1, 1, -1, 1, 0, -1, 1, -1, -1, 0, 1, -3, 1, 9, -5, 3, 1, -1, -1, 5, -3, 7, -1, -1, 5, 3, -11, 21, 1, 5, -3, 1, 1, -1, 0, 1, -1, 3, -1, 0, 1, 1, -1, 1, 0, -1, 1, -1, -1, 0, 1, -3, 1, -1, 0, 1, -1, -1, 3

Offset

1,7

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

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)));
A391564(n) = numerator(polcoef((ps(n) % ps(5)), 0));

Crossrefs

Cf. A391565 (denominators), A391566 (positions of 0's).

Cf. A125184, A186891, A260443 for a description of Stern polynomials.

Sequence in context: A333351 A193140 A319993 * A122776 A261609 A228488

Adjacent sequences: A391561 A391562 A391563 * A391565 A391566 A391567

Keyword

sign,frac,look

Author

Antti Karttunen, Dec 14 2025

Status

approved