|
%I #11 Sep 08 2022 08:45:42
%S 11,239,449,619,2099,2711,3109,3889,4591,5519,8539,9719,12071,17981,
%T 19441,21569,28949,29399,32771,38189,38201,40709,41771,44699,45949,
%U 47149,50741,52189,52379,52501,52639,55339,56249,58831,61561,62861
%N Primes p such that 12*p^3-+1 are twin primes.
%H Amiram Eldar, <a href="/A158297/b158297.txt">Table of n, a(n) for n = 1..10000</a>
%t lst={};Do[p=Prime[n];a=12*p^3;If[PrimeQ[a-1]&&PrimeQ[a+1],AppendTo[lst,p]],{n,8!}];lst
%t Select[Prime[Range[7000]],AllTrue[12#^3+{1,-1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 03 2019 *)
%o (Magma) [p:p in PrimesUpTo(63000)| IsPrime(12*p^3-1) and NextPrime(12*p^3-1) eq 12*p^3+1]; // _Marius A. Burtea_, Jan 23 2020
%Y Cf. A120364, A088483, A158295, A158296.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 15 2009
|
