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,1

Comments

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

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

Sequence in context: A158348 A158904 A358177 * A243649 A171154 A099689

Adjacent sequences: A175077 A175078 A175079 * A175081 A175082 A175083

Keyword

nonn

Author

Jaroslav Krizek, Jan 23 2010

Status

approved