login
Primes p such that 6*p^3+1 is also prime.
2

%I #19 Sep 08 2022 08:45:56

%S 3,5,13,41,97,131,223,283,353,397,461,467,523,577,661,677,691,773,811,

%T 887,937,997,1091,1223,1277,1321,1447,1487,1567,1571,1637,1721,1741,

%U 1777,1823,1861,2161,2243,2273,2341,2351,2357,2371,2383,2467,2551

%N Primes p such that 6*p^3+1 is also prime.

%H Bruno Berselli, <a href="/A188583/b188583.txt">Table of n, a(n) for n = 1..900</a>

%e For prime p = 283, 6*p^3+1 = 135991123 is prime.

%t Select[Prime[Range[500]],PrimeQ[6#^3+1]&] (* _Harvey P. Dale_, May 13 2011 *)

%o (Magma) [ p: p in PrimesUpTo(2600) | IsPrime(6*p^3+1) ];

%Y Cf. A052291, A005384; A007693, A153812.

%K nonn

%O 1,1

%A _Bruno Berselli_, Apr 22 2011