OFFSET
1,2
COMMENTS
EXAMPLE
Iteration procedure for a(6) = 10: 10 mod 7 = 3, 3 mod 2 = 1. Iteration procedure for a(7) = 11: 11 mod 7 = 4, 4 mod 3 = 1.
MATHEMATICA
nn1Q[n_]:=Last[NestWhileList[Mod[#, NextPrime[#, -1]]&, n, #>1&]]!=0; Select[ Range[ 110], nn1Q] (* Harvey P. Dale, May 05 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 23 2010
STATUS
approved