|
|
A136517
|
|
a(0) = 3; for n > 0, break up decimal expansion of Pi into chunks of increasing lengths; leading zeros are not printed.
|
|
2
|
|
|
3, 1, 41, 592, 6535, 89793, 238462, 6433832, 79502884, 197169399, 3751058209, 74944592307, 816406286208, 9986280348253, 42117067982148, 86513282306647, 938446095505822, 31725359408128481, 117450284102701938, 5211055596446229489
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|