OFFSET
0,1
REFERENCES
Sylvia Nasar, A Beautiful Mind (1998), p. 210.
Clifford A. Pickover, A Passion for Mathematics, Wiley, 2005; see p. 64.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 0..500
MAPLE
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
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, Apr 21 2008
EXTENSIONS
Extended by Nathaniel Johnston, May 08 2011
STATUS
approved