%I #23 Feb 03 2023 16:33:27

%S 3,1,41,592,6535,89793,238462,6433832,79502884,197169399,3751058209,

%T 74944592307,816406286208,9986280348253,42117067982148,86513282306647,

%U 938446095505822,31725359408128481,117450284102701938,5211055596446229489

%N a(0) = 3; for n > 0, break up decimal expansion of Pi into chunks of increasing lengths; leading zeros are not printed.

%D Sylvia Nasar, A Beautiful Mind (1998), p. 210.

%D Clifford A. Pickover, A Passion for Mathematics, Wiley, 2005; see p. 64.

%H Nathaniel Johnston, <a href="/A136517/b136517.txt">Table of n, a(n) for n = 0..500</a>

%p with(StringTools): lim:=23: s:=convert(evalf[lim^2](Pi-3),string): printf("3, "): for n from 1 to lim do printf("%d, ",parse(SubString(s,(n-1)*n/2+2..n*(n+1)/2+1))); od: # _Nathaniel Johnston_, May 08 2011

%t Join[{3},FromDigits/@With[{p=RealDigits[Pi,10,220][[1]]},Table[ Take[ p, {(n(n-1))/2+2,(n(n-1))/2+1+n}],{n,20}]]] (* _Harvey P. Dale_, Aug 20 2011 *)

%Y Cf. A000796, A081368, A090897.

%K nonn,base,easy

%O 0,1

%A _N. J. A. Sloane_, Apr 21 2008

%E Extended by _Nathaniel Johnston_, May 08 2011