OFFSET
0,3
LINKS
Michael Gilleland, Some Self-Similar Integer Sequences
Ilya Gutkovskiy, Extended graphical example
Eric Weisstein's World of Mathematics, Stern's Diatomic Series
FORMULA
G.f.: -1/x + ((1 - x)^2/x)*Product_{k>=0} (1 + x^(2^k) + x^(2^(k+1))).
MATHEMATICA
Differences[a[0] = 0; a[1] = 1; a[n_] := If[EvenQ[n], a[n/2], a[(n - 1)/2] + a[(n + 1)/2]]; Table[a[n], {n, 0, 84}], 2]
CoefficientList[Series[-1/x + ((1 - x)^2/x) Product[1 + x^2^k + x^2^(k + 1), {k, 0, 20}], {x, 0, 82}], x]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Feb 28 2017
STATUS
approved