OFFSET
1,2
LINKS
Jason Yuen, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_] := Abs[Mod[Prime[n + 1], 10] - Mod[Prime[n], 10]]; Array[f, 105] (* Ray Chandler, Jun 12 2007 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Teofilatto, Jun 02 2007
EXTENSIONS
Corrected and extended by Ray Chandler, Jun 12 2007
STATUS
approved