OFFSET
1,1
COMMENTS
Intersection of A241751 and A028916; conjecture: sequence is infinite. - Reinhard Zumkeller, Apr 11 2015
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[n^2 + 16, {n, 0, 1000}], PrimeQ]
Select[Range[1, 301, 2]^2+16, PrimeQ] (* Harvey P. Dale, Nov 05 2015 *)
PROG
(Magma) [a: n in [0..1000] | IsPrime(a) where a is n^2+16];
(Haskell)
a243451 n = a243451_list !! (n-1)
a243451_list = [x | x <- a241751_list, a010051' x == 1]
-- Reinhard Zumkeller, Apr 11 2015
(PARI) list(lim)=if(lim<17, return([])); my(v=List(), t); forstep(n=1, sqrtint(lim\1-16), 2, if(isprime(t=n^2+16), listput(v, t))); Vec(v) \\ Charles R Greathouse IV, Aug 18 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jun 05 2014
STATUS
approved