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+4096, PrimeQ] (* Harvey P. Dale, Jun 21 2018 *)
PROG
(Haskell)
a256836 n = a256836_list !! (n-1)
a256836_list = [x | x <- map (+ 4096) a000290_list, a010051' x == 1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 11 2015
STATUS
approved