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.
%I A136517 #23 Feb 03 2023 16:33:27 %S A136517 3,1,41,592,6535,89793,238462,6433832,79502884,197169399,3751058209, %T A136517 74944592307,816406286208,9986280348253,42117067982148,86513282306647, %U A136517 938446095505822,31725359408128481,117450284102701938,5211055596446229489 %N A136517 a(0) = 3; for n > 0, break up decimal expansion of Pi into chunks of increasing lengths; leading zeros are not printed. %D A136517 Sylvia Nasar, A Beautiful Mind (1998), p. 210. %D A136517 Clifford A. Pickover, A Passion for Mathematics, Wiley, 2005; see p. 64. %H A136517 Nathaniel Johnston, <a href="/A136517/b136517.txt">Table of n, a(n) for n = 0..500</a> %p A136517 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 A136517 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 A136517 Cf. A000796, A081368, A090897. %K A136517 nonn,base,easy %O A136517 0,1 %A A136517 _N. J. A. Sloane_, Apr 21 2008 %E A136517 Extended by _Nathaniel Johnston_, May 08 2011