A175080 Primes q (except greater of twin primes) with result 2 under iterations of {r mod (max prime p < r)} starting at r = q.

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

Author

Jaroslav Krizek, Jan 23 2010

Keywords

• nonn

Comments

Subsequence of A175075. Union of a(n) and sequence A006512 (greater of twin primes) is A175075.

Examples

			Iteration procedure for a(2) = 2999: 2999 mod 2971 = 28, 28 mod 23 = 5, 5 mod 3 = 2.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

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 *)