OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..14403 (all terms up to 50000)
MATHEMATICA
Select[Range[5000], Mod[Prime[ # ]+#, 7]+Mod[Prime[ #+1]+#+1, 7]==0&]
Select[Range[5000], And@@Divisible[{#+Prime[#], #+1+Prime[#+1]}, 7]&] (* Harvey P. Dale, Aug 09 2013 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Jun 10 2005
STATUS
approved