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

2, 6563, 6947, 7331, 7907, 8291, 8867, 10163, 10739, 11699, 12659, 13043, 13619, 15731, 16691, 17987, 18371, 18947, 19843, 20483, 21059, 23003, 23899, 24763, 25147, 26107, 26683, 27067, 28027, 28283, 28859, 29243, 29819

Offset

1,1

Comments

First differences: 6561, 384, 384, 576, 384, 576, 1296, 576, 960, 960, 384, 576, 2112,...

Links

Table of n, a(n) for n=1..33.

Mathematica

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

Crossrefs

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

Sequence in context: A107021 A107022 A330901 * A112720 A129059 A129058

Adjacent sequences: A285690 A285691 A285692 * A285694 A285695 A285696

Keyword

nonn

Author

Zak Seidov, Apr 25 2017

Status

approved