OFFSET
1,1
EXAMPLE
The first 5 such primes are 5, 17, 29, 41, 101. For these, 10 - (p mod 10) is 5, 3, 1, 9, 9.
MATHEMATICA
10-Mod[ #, 10]&/@Select[Prime/@Range[1500], PrimeQ[ #+2]&&Mod[ #, 4]==1&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 24 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 09 2002
STATUS
approved