A045958 Numbers k in A045954 such that k+1 is prime.

2, 4, 6, 10, 12, 18, 22, 36, 42, 52, 58, 70, 100, 102, 108, 130, 138, 148, 150, 172, 178, 196, 198, 228, 262, 268, 282, 310, 346, 358, 372, 388, 418, 420, 438, 442, 490, 498, 502, 522, 546, 570, 586, 598, 630, 642, 646, 660, 690, 708, 738, 742, 772, 822, 826, 838, 852

Offset: 1

Author

Felice Russo

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A045954, A045959.

Subsequence of A006093.

Programs

Mathematica

seq[max_] := Module[{lst = Range[2, max, 2], i = 2, len}, While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++]; Select[lst, PrimeQ[# + 1] &]]; seq[1000] (* Amiram Eldar, Mar 20 2024, after Robert G. Wilson v at A045954 *)

Extensions

Title corrected by Sean A. Irvine, Mar 29 2021