login
A285693
a(1) = 2; a(n + 1) = smallest prime > a(n) such that a(n + 1) - a(n) is the product of 8 primes.
1
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,...
MATHEMATICA
NestList[Module[{p = NextPrime@ #}, While[PrimeOmega[p - #] != 8, p = NextPrime@ p]; p] &, 2, 32] (* Michael De Vlieger, Apr 25 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 25 2017
STATUS
approved