A045962 Numbers k in A045954 such that 2*k+1 is prime.

2, 6, 18, 20, 26, 36, 44, 50, 54, 68, 90, 98, 114, 116, 138, 140, 186, 198, 228, 230, 260, 278, 300, 308, 326, 354, 386, 426, 438, 470, 498, 516, 524, 534, 546, 548, 596, 614, 644, 660, 690, 714, 716, 740, 746, 804, 818, 870, 900, 938, 966, 986, 996, 998, 1044, 1068

Offset

1,1

Links

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

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[2*# + 1] &]]; seq[1000] (* Amiram Eldar, Mar 20 2024, after Robert G. Wilson v at A045954 *)

Crossrefs

Cf. A045954, A045963.

Subsequence of A005097.

Sequence in context: A316765 A097635 A151870 * A127257 A050832 A300600

Adjacent sequences: A045959 A045960 A045961 * A045963 A045964 A045965

Keyword

nonn

Author

Felice Russo

Extensions

More terms from David W. Wilson

Title corrected by Sean A. Irvine, Mar 29 2021

Status

approved