OFFSET
2,3
MATHEMATICA
Do[k = (Prime[n+1] - Prime[n])/2; Print[Mod[Prime[n-k]+Prime[n], 4]], {n, 3, 100}] (* Ryan Propper, Oct 07 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Yasutoshi Kohmoto, Jan 27 2005
EXTENSIONS
More terms from Ryan Propper and David Wasserman, Oct 07 2005
STATUS
approved