A129750 Absolute difference of final digits of consecutive primes.

1, 2, 2, 6, 2, 4, 2, 6, 6, 8, 6, 6, 2, 4, 4, 6, 8, 6, 6, 2, 6, 6, 6, 2, 6, 2, 4, 2, 6, 4, 6, 6, 2, 0, 8, 6, 4, 4, 4, 6, 8, 0, 2, 4, 2, 8, 2, 4, 2, 6, 6, 8, 0, 6, 4, 6, 8, 6, 6, 2, 0, 4, 6, 2, 4, 6, 6, 0, 2, 6, 6, 2, 4, 6, 6, 6, 2, 6, 8, 0, 8, 0, 2, 6, 6, 6, 2, 6, 2, 4, 2, 2, 6, 8, 6, 6, 8, 2, 2, 6, 0, 4, 6, 8, 6

Offset: 1

Author

Giovanni Teofilatto, Jun 02 2007

Keywords

• base
• easy
• nonn

Links

• Jason Yuen, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007652.

Programs

Mathematica

f[n_] := Abs[Mod[Prime[n + 1], 10] - Mod[Prime[n], 10]]; Array[f, 105] (* Ray Chandler, Jun 12 2007 *)

Extensions

Corrected and extended by Ray Chandler, Jun 12 2007