OFFSET
0,2
MATHEMATICA
a=Sqrt[6]; Table[a=a^2-2; Length[IntegerDigits[a]], {n, 0, 20}]
IntegerLength/@NestList[#^2-2&, 4, 33] (* Harvey P. Dale, Jan 19 2018 *)
PROG
(Magma) T:=[ n eq 1 select 4 else Self(n-1)^2-2: n in [1..24] ]; [ #Intseq(T[n]): n in [1..#T] ];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
G. L. Honaker, Jr., Dec 13 2010
EXTENSIONS
a(21) - a(24) from Klaus Brockhaus, Dec 13 2010
a(25) - a(32) from D. S. McNeil, Dec 13 2010
STATUS
approved