OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..39
MATHEMATICA
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == n - 9, Print[n]], {n, 1, 10^9}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 18 2004
EXTENSIONS
Corrected by Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Feb 20 2004
a(25) from Robert G. Wilson v, Feb 22 2006
Terms a(26) and beyond from Giovanni Resta, Feb 23 2020
STATUS
approved