A036273 Absolute values of differences of A036272.
1, 2, 0, 0, 0, 0, 2, 2, 2, 2, 0, 0, 2, 2, 4, 2, 2, 2, 0, 2, 0, 2, 0, 2, 0, 0, 8, 8, 8, 6, 2, 4, 4, 0, 2, 2, 2, 2, 0, 4, 6, 6, 8, 2, 2, 2, 6, 0, 2, 2, 0, 0, 4, 4, 4, 2, 2, 6, 2, 2, 2, 8, 8, 6, 2, 0, 2, 6, 0, 0, 2, 0, 2, 0, 2, 2, 2, 4, 6, 0, 4, 2, 2, 0, 2, 0, 2, 6, 2, 4, 0, 0, 2
Offset: 0
Keywords
Programs
-
Mathematica
Nest[Abs[Differences[#]]&,Prime[Range[100]],4] (* Harvey P. Dale, Jan 05 2012 *)