%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