OFFSET
1,2
COMMENTS
These numbers are mentioned by Ulas and Ulas. All numbers of the form 2^k-1, 2^k-5, and (2^k-1)^2 are here.
LINKS
Maciej Ulas and Oliwia Ulas, On certain arithmetic properties of Stern polynomials, arXiv:1102.5109 [math.CO], 2011.
MATHEMATICA
b[0]=0; b[1]=1; b[n_] := b[n] = If[EvenQ[n], x b[n/2], b[Floor[n/2]] + b[Ceiling[n/2]]]; Select[Range[10000], CoefficientList[b[#], x] == Reverse[CoefficientList[b[#], x]] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 28 2011
STATUS
approved