login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A045958
Numbers k in A045954 such that k+1 is prime.
2
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,1
LINKS
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 *)
CROSSREFS
Subsequence of A006093.
Sequence in context: A092249 A019332 A002491 * A076067 A316460 A065385
KEYWORD
nonn
AUTHOR
EXTENSIONS
Title corrected by Sean A. Irvine, Mar 29 2021
STATUS
approved