cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A064236 Number of decimal digits in A001042.

This page as a plain text file.
%I A064236 #11 Dec 15 2017 17:35:38
%S A064236 1,1,1,1,2,3,5,10,19,38,76,152,303,605,1210,2420,4839,9678,19355,
%T A064236 38709,77417,154834,309667,619333,1238665,2477330,4954660,9909319,
%U A064236 19818638,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} ]
%t A064236 IntegerLength[#]&/@(RecurrenceTable[{a[1]==1,a[2]==2,a[n]==a[n-1]^2- a[n-2]^2},a,{n,31}]) (* _Harvey P. Dale_, Dec 27 2013 *)
%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))))
%o A064236 (Haskell)
%o A064236 a064236 = length . show . a001042  -- _Reinhard Zumkeller_, Dec 16 2013
%K A064236 base,nonn
%O A064236 0,5
%A A064236 _Jason Earls_, Sep 22 2001
%E A064236 More terms from _Robert G. Wilson v_, Sep 24 2001