A285694 a(1) = 2; a(n + 1) = smallest prime > a(n) such that a(n + 1) - a(n) is the product of 10 primes.

2, 59051, 62507, 64811, 66347, 67883, 71339, 73643, 81707, 83243, 87083, 89387, 91691, 95531, 99371, 100907, 104491, 110251, 115883, 119723, 121259, 126443, 127979, 136043, 139627, 141931, 143467, 145771, 148331

Offset: 1

Author

Zak Seidov, Apr 25 2017

Keywords

• nonn

Comments

First differences: 59049, 3456, 2304, 1536, 1536, 3456, 2304, 8064, 1536, 3840, 2304, 2304, ...

Crossrefs

Cf. A255609, A285688, A285689, A285690, A285691, A285692, A285693.

Programs

Mathematica

NestList[Module[{p = NextPrime@ #}, While[PrimeOmega[p - #] != 10, p = NextPrime@ p]; p] &, 2, 28] (* Michael De Vlieger, Apr 25 2017 *)