OFFSET
1,1
COMMENTS
Conjecture: sequence is infinite.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[500]^2+14641, PrimeQ] (* Harvey P. Dale, Mar 20 2017 *)
PROG
(Haskell)
a256839 n = a256839_list !! (n-1)
a256839_list = [x | x <- map (+ 14641) a000290_list, a010051' x == 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 11 2015
STATUS
approved