|
%I #13 Sep 08 2022 08:45:40
%S 1,3,4,6,11,13,17,20,29,39,94,108,136,154,158,172,214,227,245,256,262,
%T 283,288,290,308,315,328,357,358,371,403,413,414,420,475,491,510,522,
%U 536,543,546,556,559,561,581,585,622,630,633,647,666,669,676,699,735
%N Numbers m such that 12 m^2 is the average of a twin prime pair.
%H Amiram Eldar, <a href="/A154331/b154331.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%t Select[Range[800],AllTrue[12#^2+{1,-1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 27 2014 *)
%o (PARI) for(i=1,999, isprime(12*i^2+1) & isprime(12*i^2-1) & print1(i","))
%o (Magma) [m:m in [1..740]| IsPrime(12*m^2-1) and IsPrime(12*m^2+1)]; // _Marius A. Burtea_, Jan 23 2020
%Y Cf. A037073, A154671.
%K nonn
%O 1,2
%A _M. F. Hasler_, Jan 15 2009
|
