This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A045962 #23 Mar 20 2024 05:14:43 %S A045962 2,6,18,20,26,36,44,50,54,68,90,98,114,116,138,140,186,198,228,230, %T A045962 260,278,300,308,326,354,386,426,438,470,498,516,524,534,546,548,596, %U A045962 614,644,660,690,714,716,740,746,804,818,870,900,938,966,986,996,998,1044,1068 %N A045962 Numbers k in A045954 such that 2*k+1 is prime. %H A045962 Amiram Eldar, <a href="/A045962/b045962.txt">Table of n, a(n) for n = 1..10000</a> %t A045962 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 *) %Y A045962 Cf. A045954, A045963. %Y A045962 Subsequence of A005097. %K A045962 nonn %O A045962 1,1 %A A045962 _Felice Russo_ %E A045962 More terms from _David W. Wilson_ %E A045962 Title corrected by _Sean A. Irvine_, Mar 29 2021