OFFSET
1,1
COMMENTS
Conjecture: sequence is infinite.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[300]^2+28561, PrimeQ] (* Harvey P. Dale, Oct 18 2021 *)
PROG
(Haskell)
a256841 n = a256841_list !! (n-1)
a256841_list = [x | x <- map (+ 28561) a000290_list, a010051' x == 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 11 2015
STATUS
approved