OFFSET
0,3
COMMENTS
Denominators of the Taylor series expansion are given by A046161.
The terms after the second are divisible by 3.
The sequence of the absolute values is not monotonic.
MAPLE
a:= n-> numer(coeff(series(sqrt(1+x+x^2), x, n+3), x, n)):
seq(a(n), n=0..35); # Alois P. Heinz, Jul 25 2017
MATHEMATICA
Numerator[CoefficientList[Series[Sqrt[1+x+x^2], {x, 0, 32}], x]]
PROG
(PARI) x = 'x + O('x^40); apply(x->numerator(x), Vec((1+x+x^2)^(1/2))) \\ Michel Marcus, Jul 24 2017
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Bruno Zürcher, Jul 22 2017
STATUS
approved