login
A129750
Absolute difference of final digits of consecutive primes.
4
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,2
MATHEMATICA
f[n_] := Abs[Mod[Prime[n + 1], 10] - Mod[Prime[n], 10]]; Array[f, 105] (* Ray Chandler, Jun 12 2007 *)
CROSSREFS
Cf. A007652.
Sequence in context: A339489 A293443 A247765 * A278234 A349330 A367203
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Teofilatto, Jun 02 2007
EXTENSIONS
Corrected and extended by Ray Chandler, Jun 12 2007
STATUS
approved