OFFSET
1,1
COMMENTS
Conjecture: sequence is infinite.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[400]^2 + 81, PrimeQ] (* Michael De Vlieger, Apr 19 2015 *)
PROG
(Haskell)
a256775 n = a256775_list !! (n-1)
a256775_list = [x | x <- map (+ 81) a000290_list, a010051' x == 1]
(Magma) [p: p in PrimesUpTo(200000)| IsSquare(p-81)]; // Vincenzo Librandi, Apr 20 2015
(PARI) for(n=1, 10^3, if(isprime(p=n^2+81), print1(p, ", "))) \\ Derek Orr, Apr 24 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 11 2015
STATUS
approved