A085553 Lesser of twin primes of the form x^2+4, x^2+6.

5, 29, 1229, 4229, 366029, 819029, 1155629, 1311029, 1575029, 3822029, 4389029, 4515629, 5880629, 7102229, 9333029, 9954029, 13213229, 13432229, 16120229, 19140629, 25654229, 34987229, 37393229, 38875229, 39375629, 41152229

Offset: 1

Author

Cino Hilliard, Jul 04 2003

Keywords

• easy
• nonn

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Programs

Mathematica

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 *)

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

Extensions

Edited by Don Reble, May 03 2006

Definition corrected by Harvey P. Dale and Franklin T. Adams-Watters, Jan 15 2015