A095916 Differences between adjacent digits of Pi.

-2, 3, -3, 4, 4, -7, 4, -1, -2, 2, 3, 1, -2, 2, -6, -1, 1, 5, -4, 2, -4, 4, -2, -1, 0, 5, -5, -1, 5, 2, -4, -5, 2, 6, 0, -4, -3, 8, -2, -6, 5, 3, -6, 6, 0, -6, 4, -2, -4, -1, 5, 3, -6, -2, 9, -2, -3, 5, -5, 0, 1, 4, -7, 1, -3, 7, 1, -7, 5, -2, -4, 6, -4, 6, -2, -4, -2, 8, 1, 0, -1, -2, -4, 6, -8, 3, 1, 4, -6, 3, -2, 1, -2, -1, 0, 6, -7, 6, 1, 2

Offset: 1

Author

Herman Jamke (hermanjamke(AT)fastmail.fm), Jul 13 2004

Keywords

• base
• sign

Comments

a(A049514(n)) = 0. - Reinhard Zumkeller, Mar 12 2015

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
• Index entries for sequences related to the number Pi

Crossrefs

Cf. A000796, A138345.

Cf. A049514, A030658, A193496.

Programs

Haskell

a095916 n = a095916_list !! (n-1)
a095916_list = zipWith (-) (tail a000796_list) a000796_list
-- Reinhard Zumkeller, Mar 12 2015

Mathematica

b = RealDigits[N[Pi, 1000]]; b = First[b]; a = {}; Do[k = b[[n + 1]] - b[[n]]; AppendTo[a, k], {n, 1, 999}]; a (* Artur Jasinski, Mar 16 2008 *)
Differences[RealDigits[Pi,10,120][[1]]] (* Harvey P. Dale, Feb 10 2013 *)