OFFSET
1,2
FORMULA
MATHEMATICA
a = {}; Do[k = Length[IntegerDigits[Expand[((2*Sqrt[2] + 3)^(n) - (3 - 2*Sqrt[2])^(n))/(4*Sqrt[2])], 2]]; Print[k]; AppendTo[a, k], {n, 1, 50}]; a
Rest[IntegerLength[#, 2]&/@LinearRecurrence[{6, -1}, {0, 1}, 60]] (* Harvey P. Dale, Feb 11 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Artur Jasinski, Apr 22 2008
EXTENSIONS
Incorrect link to index entries for linear recurrences with constant coefficients removed by Colin Barker, Oct 13 2015
STATUS
approved