OFFSET
2,1
MATHEMATICA
f[n_] := Mod[Prime[n] + Prime[n + (Prime[n + 1] - Prime[n])/2], 3]; Table[ f[n], {n, 2, 106}] (* Robert G. Wilson v, Apr 08 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Yasutoshi Kohmoto, Apr 08 2005
EXTENSIONS
More terms from Robert G. Wilson v, Apr 08 2005
STATUS
approved