OFFSET
1,1
MATHEMATICA
Select[Range[5000], Mod[Prime[ # ]+#, 9]+Mod[Prime[ #+1]+#+1, 9]==0&]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Jun 10 2005
STATUS
approved