A354726 a(1)=2. Thereafter a(n) is the least prime q>a(n-1) such that Omega(a(n-1)+a(n))=3.

2, 43, 59, 71, 83, 89, 97, 139, 151, 167, 199, 211, 223, 229, 241, 257, 277, 313, 379, 383, 389, 397, 409, 421, 433, 457, 499, 503, 563, 569, 577, 601, 643, 691, 743, 773, 797, 809, 821, 863, 947, 971, 977, 1009, 1013, 1061, 1093, 1109, 1129, 1153, 1181, 1201, 1213, 1297, 1301, 1373, 1409, 1427, 1447, 1483, 1489, 1621

Offset

1,1

Links

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

Mathematica

s = {2}; p = 2; q = 3; Do[While[3 != PrimeOmega[ q + p], q = NextPrime[q]]; AppendTo[s, p = q], {100}]; s

Crossrefs

Cf. A001222 (Omega).

Sequence in context: A236695 A085460 A139835 * A235473 A137415 A090194

Adjacent sequences: A354723 A354724 A354725 * A354727 A354728 A354729

Keyword

nonn

Author

Zak Seidov, Jun 04 2022

Status

approved