OFFSET
0,2
COMMENTS
A more natural variant is given by A046974, the partial sums of the digits of Pi (A000796). Maybe the present version is motivated by the coincidence that the first four digits 1,4,5,9 are similar to the decimals .14159 of Pi. - M. F. Hasler, Jan 19 2015
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..2000
A. Frank & P. Jacqueroux, International Contest, 2001. Item 14
MAPLE
Digits := 200: it := evalf(Pi, 200)/10: out := 1: for i from 1 to 200 do printf(`%d, `, out): out := out+floor(10*it): it := 10*it-floor(10*it): od:
MATHEMATICA
Accumulate[Join[{1}, RealDigits[Pi, 10, 60][[1]]]] (* Harvey P. Dale, Jan 18 2015 *)
PROG
(PARI) { default(realprecision, 2080); a=1; x=Pi/10; for (n=0, 2000, d=floor(x); x=(x-d)*10; write("b059582.txt", n, " ", a+=d)); } \\ Harry J. Smith, Jun 28 2009
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Rodolfo Kurchan, Feb 17 2001
EXTENSIONS
More terms from James A. Sellers, Feb 19 2001
STATUS
approved