login
A095916
Differences between adjacent digits of Pi.
6
-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,1
COMMENTS
a(A049514(n)) = 0. - 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 *)
PROG
(Haskell)
a095916 n = a095916_list !! (n-1)
a095916_list = zipWith (-) (tail a000796_list) a000796_list
-- Reinhard Zumkeller, Mar 12 2015
CROSSREFS
KEYWORD
base,sign
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Jul 13 2004
STATUS
approved