login
A085553
Lesser of twin primes of the form x^2+4, x^2+6.
3
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
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