|
|
A059582
|
|
First differences give digits of Pi = 3.1415926...
|
|
1
|
|
|
1, 4, 5, 9, 10, 15, 24, 26, 32, 37, 40, 45, 53, 62, 69, 78, 81, 83, 86, 94, 98, 104, 106, 112, 116, 119, 122, 130, 133, 135, 142, 151, 156, 156, 158, 166, 174, 178, 179, 188, 195, 196, 202, 211, 214, 223, 232, 235, 242, 247, 248, 248, 253, 261, 263, 263, 272
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|