OFFSET
1,1
COMMENTS
First differences: 9477, 288, 480, 320, 480, 192, 288, 192, 288, 480, 432, 448, 320, 192, 192, 432, 448, 320, 288, 432,...
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
A:= Vector(100): A[1]:= 2:
for n from 2 to 100 do
p:= A[n-1];
do
p:= nextprime(p);
until numtheory:-bigomega(p-A[n-1]) = 7;
A[n]:= p;
od:
convert(A, list); # Robert Israel, Dec 28 2022
MATHEMATICA
NestList[Module[{p = NextPrime@ #}, While[PrimeOmega[p - #] != 7, p = NextPrime@ p]; p] &, 2, 38] (* Michael De Vlieger, Apr 25 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 25 2017
STATUS
approved