%I #12 Sep 08 2022 08:45:28
%S 7,13,19,31,79,127,139,181,199,241,271,313,337,349,373,457,523,577,
%T 643,691,727,769,787,823,907,991,1051,1129,1231,1447,1567,1627,1723,
%U 1759,1783,1861,1879,1987,1993,2053,2251,2287,2371,2437,2473,2539,2593,2659
%N Primes p such that 1 + 4p + 12p^2 is prime.
%C Primes p such that 2*p is in A086285 (Numbers n such that 1+2n+3n^2 is prime).
%H Harvey P. Dale, <a href="/A122482/b122482.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[400]],PrimeQ[1+4#+12#^2]&] (* _Harvey P. Dale_, Mar 11 2022 *)
%o (Magma) [ p: p in PrimesUpTo(5000) | IsPrime(1+4*p+12*p^2)] // _Vincenzo Librandi_, Jan 26 2011
%Y Cf. A086285.
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 20 2006
|