editing
approved
editing
approved
Select[Prime[Range[1200]], AllTrue[12#^2+{1, -1}, PrimeQ]&] (* Harvey P. Dale, Sep 15 2021 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Amiram Eldar, <a href="/A158296/b158296.txt">Table of n, a(n) for n = 1..10000</a>
approved
editing
_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Mar 15 2009
Primes p such that 12*p^2-+1 are twin primes.
3, 11, 13, 17, 29, 227, 283, 491, 647, 739, 953, 1151, 1471, 1511, 1879, 1889, 2129, 2251, 2297, 2593, 2633, 3347, 3539, 3559, 3643, 3877, 3919, 4231, 4327, 4547, 4673, 4801, 4999, 5051, 6451, 6653, 6737, 6779, 6983, 7741, 7937, 8179, 8219, 8231, 8389
1,1
lst={}; Do[p=Prime[n]; a=12*p^2; If[PrimeQ[a-1]&&PrimeQ[a+1], AppendTo[lst, p]], {n, 7!}]; lst
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Mar 15 2009
approved