OFFSET
1,1
EXAMPLE
6 and 13, the 6th prime, are equal (mod 7).
MATHEMATICA
Select[Range[1000], Mod[#, 7] == Mod[Prime[#], 7]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 23 2011
STATUS
approved