OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
MAPLE
a[0]:= 0: a[1]:= 1: R[0]:= 1: R[1]:= 1:
for n from 2 to 100 do
a[n]:= 6*a[n-1] - a[n-2];
R[n]:= ilog2(a[n])+1;
od:
seq(R[i], i=0..100); # Robert Israel, Nov 23 2024
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
a(0) = 1 prepended and more terms by Robert Israel, Nov 23 2024
STATUS
approved