OFFSET
1,2
MATHEMATICA
a = {}; Do[k = IntegerDigits[Expand[((2*Sqrt[2] + 3)^(n) - (3 - 2*Sqrt[2])^(n))/(4*Sqrt[2])], 2]; AppendTo[a, FromDigits[k]], {n, 1, 50}]; a (*Artur Jasinski*)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Artur Jasinski, Apr 22 2008
STATUS
approved