OFFSET
1,1
MATHEMATICA
Mod[Select[Prime[Range[500]], 1<Mod[ #, 7]&], 7]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jul 16 2010
STATUS
approved