OFFSET
1,1
COMMENTS
First differences: 59049, 3456, 2304, 1536, 1536, 3456, 2304, 8064, 1536, 3840, 2304, 2304, ...
MATHEMATICA
NestList[Module[{p = NextPrime@ #}, While[PrimeOmega[p - #] != 10, p = NextPrime@ p]; p] &, 2, 28] (* Michael De Vlieger, Apr 25 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 25 2017
STATUS
approved