%I #32 Sep 08 2022 08:46:07
%S 1,2,4,5,7,8,13,17,19,20,37,40,53,55,58,62,68,79,89,92,95,103,112,115,
%T 119,128,137,140,158,160,169,170,193,205,214,223,229,232,235,242,248,
%U 265,272,275,278,295,313,317,322,323,337,355,359,364
%N Numbers k such that (2*k)^3 - 3 is prime.
%H Amiram Eldar, <a href="/A241808/b241808.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A153974(n)/2. - _R. J. Mathar_, May 14 2014
%t Select[Range[400], PrimeQ[(2*#)^3 - 3] &] (* _Amiram Eldar_, Aug 29 2020 *)
%o (Magma) [n: n in [1..500] | IsPrime((2*n)^3 - 3)]; // _Juri-Stepan Gerasimov_, May 12 2014
%o (PARI) is(n)=isprime((2*n)^3-3) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A006254, A153974.
%K nonn,easy
%O 1,2
%A _Gerasimov Sergey_, Apr 29 2014