login
A175080
Primes q (except greater of twin primes) with result 2 under iterations of {r mod (max prime p < r)} starting at r = q.
4
2, 2999, 3299, 5147, 5981, 8999, 9587, 10037, 10427, 10559, 10937, 11579, 12889, 13367, 14143, 14591, 14621, 15859, 16301, 16871, 18041, 18839, 18947, 19661, 21059, 21557, 22229, 22343, 22853, 23399, 23957, 24317, 24659, 25523, 27179
OFFSET
1,1
COMMENTS
Subsequence of A175075. Union of a(n) and sequence A006512 (greater of twin primes) is A175075.
LINKS
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
Sequence in context: A158348 A158904 A358177 * A243649 A171154 A099689
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Jan 23 2010
STATUS
approved