A256841 Primes of form n^2 + 28561.
28597, 28661, 28817, 28961, 29137, 29717, 30161, 30497, 30677, 31477, 32917, 33461, 34337, 34961, 35617, 37397, 38561, 42017, 42961, 47057, 49297, 49877, 51061, 55457, 60961, 62417, 64661, 66977, 70177, 70997, 72661, 74357, 75217, 76961, 78737, 86161, 93077
Offset: 1
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Haskell
a256841 n = a256841_list !! (n-1) a256841_list = [x | x <- map (+ 28561) a000290_list, a010051' x == 1]
-
Mathematica
Select[Range[300]^2+28561,PrimeQ] (* Harvey P. Dale, Oct 18 2021 *)
Comments