A045963 - OEIS

A045963

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

2, 4, 6, 10, 12, 22, 34, 36, 42, 52, 54, 70, 76, 84, 90, 100, 114, 132, 234, 244, 246, 262, 282, 300, 310, 324, 346, 372, 394, 406, 420, 442, 474, 516, 532, 546, 586, 630, 642, 646, 660, 684, 714, 724, 742, 772, 780, 790, 804, 874, 906, 916, 954, 966, 994, 1002, 1044

(list; graph; refs; listen; history; text; internal format)

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, A045962.

Subsequence of A006254.

Sequence in context: A068514 A074645 A125286 * A128169 A095923 A094960

Adjacent sequences: A045960 A045961 A045962 * A045964 A045965 A045966

KEYWORD

nonn

AUTHOR

Felice Russo

EXTENSIONS

More terms from David W. Wilson

Title corrected by Sean A. Irvine, Mar 29 2021

STATUS

approved