OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
Iteration procedure for a(2) = 2999: 2999 mod 2971 = 28, 28 mod 23 = 5, 5 mod 3 = 2.
MATHEMATICA
mpQ[n_]:=!PrimeQ[n-2]&&MemberQ[NestWhileList[Mod[#, NextPrime[#, -1]]&, n, #>0&], 2]; Select[Prime[Range[3000]], mpQ] (* Harvey P. Dale, Mar 10 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 23 2010
STATUS
approved