|
%I #14 Oct 19 2017 03:14:19
%S 5,29,1229,4229,366029,819029,1155629,1311029,1575029,3822029,4389029,
%T 4515629,5880629,7102229,9333029,9954029,13213229,13432229,16120229,
%U 19140629,25654229,34987229,37393229,38875229,39375629,41152229
%N Lesser of twin primes of the form x^2+4, x^2+6.
%H Charles R Greathouse IV, <a href="/A085553/b085553.txt">Table of n, a(n) for n = 1..10000</a>
%t Transpose[Select[Table[x^2+{4,6},{x,7000}],AllTrue[#,PrimeQ]&]][[1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 15 2015 *)
%o (PARI) forstep(n=1,1e4,[4,2], if(isprime(n^2+4)&&isprime(n^2+6), print1(n^2+4", "))) \\ _Charles R Greathouse IV_, Jan 16 2015
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Jul 04 2003
%E Edited by _Don Reble_, May 03 2006
%E Definition corrected by _Harvey P. Dale_ and _Franklin T. Adams-Watters_, Jan 15 2015
|
