A281314 a(1) = 4; a(n) = smallest semiprime such that a(n) - a(n-1) is an odd prime.
4, 9, 14, 21, 26, 33, 38, 49, 62, 65, 82, 85, 122, 129, 134, 141, 146, 159, 166, 169, 206, 209, 214, 217, 254, 259, 262, 265, 278, 289, 302, 305, 334, 339, 346, 365, 382, 393, 398, 403, 422, 427, 446, 451, 454, 471, 478, 481, 542, 545
Offset: 1
Keywords
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
NestList[(p = 3; While[2 != PrimeOmega[q = # + p], p = NextPrime[p]]; q) &, 4, 50] nxt[n_]:=Module[{k=n+1},While[PrimeOmega[k]!=2||!PrimeQ[k-n]||EvenQ[k-n],k++];k]; NestList[nxt,4,50] (* Harvey P. Dale, Feb 14 2019 *)
Comments