A059582 First differences give digits of Pi = 3.1415926...
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
Offset: 0
Links
- Harry J. Smith, Table of n, a(n) for n = 0..2000
- A. Frank & P. Jacqueroux, International Contest, 2001. Item 14
Programs
-
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 *)
-
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
Extensions
More terms from James Sellers, Feb 19 2001
Comments