|
%I #12 Sep 08 2022 08:46:02
%S 3,4,6,10,16,21,24,25,31,34,43,46,54,55,58,61,64,69,81,90,91,93,99,
%T 108,120,126,130,139,141,154,166,178,181,189,198,199,205,210,213,214,
%U 223,241,249,255,259,273,285,295,331,334,336,346,348,351,354,366,369,370,373,375,376,378
%N Numbers k such that 2*k^3 - 1 is prime.
%H Vincenzo Librandi, <a href="/A214289/b214289.txt">Table of n, a(n) for n = 1..1000</a>
%F A177105(n) = 2*n^3 - 1. - _R. J. Mathar_, Aug 20 2019
%t Select[Range[0,1000],PrimeQ[2*#^3-1]&]
%o (Magma) [n: n in [1..400]|IsPrime(2*n^3-1)]
%o (PARI) is(n)=isprime(2*n^3-1) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A177105.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jul 25 2012
|
