OFFSET
1,1
COMMENTS
a(A049514(n)) = 0. - Reinhard Zumkeller, Mar 12 2015
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
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