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

2, 29, 37, 67, 79, 97, 109, 127, 139, 151, 163, 181, 193, 211, 223, 241, 269, 277, 307, 337, 349, 367, 379, 397, 409, 421, 433, 461, 479, 487, 499, 541, 569, 577, 607, 619, 631, 643, 661, 673, 691, 709, 727, 739, 751, 769, 787, 829, 857, 877, 907, 919, 937, 967, 997, 1009, 1021, 1033

Offset

1,1

Comments

First differences: 27,8,30,12,18,12,18,12,12,12,18,12,18,12,18,28,8,30,30,12,18,12

Links

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

Mathematica

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

Crossrefs

Cf. A255609.

Sequence in context: A060503 A180231 A141172 * A139833 A260792 A059700

Adjacent sequences: A285685 A285686 A285687 * A285689 A285690 A285691

Keyword

nonn

Author

Zak Seidov, Apr 24 2017

Status

approved