A168356 A000796(n-2) - A000796(n).
1, 0, 1, 8, -3, -3, 3, -3, 0, 5, 4, -1, 0, -4, -7, 0, 6, 1, -2, -2, 0, 2, -3, -1, 5, 0, -6, 4, 7, -2, -9, -3, 8, 6, -4, -7, 5, 6, -8, -1, 8, -3, 0, 6, -6, -2, 2, -6, -5, 4, 8, -3, -8, 7, 7, -5, 2, 0, -5, 1, 5, -3, -6, -2, 4, 8, -6, -2, 3, -6, 2, 2, 2, 4, -6, -6, 6, 9, 1, -1, -3, -6, 2, -2, -5
Offset: 1
Crossrefs
Cf. A000796
Programs
-
Mathematica
Last[#]-First[#]&/@Partition[RealDigits[\[Pi],10,150][[1]], 3,1] (* Harvey P. Dale, Mar 18 2011 *)
Comments