%I A064236
%S A064236 1,1,1,1,2,3,5,10,19,38,76,152,303,605,1210,2420,4839,9678,19355,38709,
%T A064236 77417,154834,309667,619333,1238665,2477330,4954660,9909319,19818638,
%U A064236 39637275,79274549
%N A064236 Number of decimal digits in A001042.
%t A064236 a[ 1 ] = 1; a[ 2 ] = 2; a[ n_ ] := a[ n ] = a[ n - 1 ]^2 - a[ n - 2 ]^2; 
               Table[ Floor[ N[ Log[ 10, a[ n ] ], 36 ] ] + 1, {n, 1, 31} ]
%o A064236 (PARI) a(n) = if(n<2,n+1,a(n-1)^2-a(n-2)^2); l(n) = ln=0; while(n,n=floor(n/
               10); ln++); return(ln); for(n=0,21,print(l(a(n))))
%Y A064236 Sequence in context: A078715 A166874 A046630 this_sequence A007569 A054317 
               A065840
%Y A064236 Adjacent sequences: A064233 A064234 A064235 this_sequence A064237 A064238 
               A064239
%K A064236 base,nonn
%O A064236 0,5
%A A064236 Jason Earls (zevi_35711(AT)yahoo.com), Sep 22 2001
%E A064236 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 24 2001