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

2, 1217, 1361, 1601, 1697, 1913, 2129, 2273, 2417, 2633, 2729, 2953, 3049, 3209, 3433, 3529, 3593, 3833, 3929, 4073, 4217, 4441, 4657, 4721, 4817, 5153, 5297, 5393, 5717, 5813, 6029, 6173, 6269, 6829, 7069, 7213, 7309, 7549, 7789

Offset

1,1

Comments

First differences: 1215, 144, 240, 96, 216, 216, 144, 144, 216, 96, 224, 96, 160, 224, 96, 64, 240, 96, 144, 144, ...

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

A[1]:= 2: p:= 2: n:= 1:
while n < 60 do
    p:= nextprime(p);
    if numtheory:-bigomega(p-A[n]) = 6 then n:= n+1; A[n]:= p;
    fi
od:
seq(A[i], i=1..60); # Robert Israel, Nov 28 2019

Mathematica

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

Crossrefs

Cf. A255609, A285688, A285689, A285690.

Sequence in context: A277274 A036104 A036106 * A281250 A369777 A171940

Adjacent sequences: A285688 A285689 A285690 * A285692 A285693 A285694

Keyword

nonn

Author

Zak Seidov, Apr 25 2017

Status

approved