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,1

Links

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

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

Prog

(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

Crossrefs

Sequence in context: A072880 A112959 A273918 * A057208 A175905 A057706

Adjacent sequences: A085550 A085551 A085552 * A085554 A085555 A085556

Keyword

easy,nonn

Author

Cino Hilliard, Jul 04 2003

Extensions

Edited by Don Reble, May 03 2006

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

Status

approved