A117047 Primes of the form 60*n+11.
11, 71, 131, 191, 251, 311, 431, 491, 911, 971, 1031, 1091, 1151, 1451, 1511, 1571, 1811, 1871, 1931, 2111, 2351, 2411, 2531, 2591, 2711, 3011, 3191, 3251, 3371, 3491, 3671, 3851, 3911, 4091, 4211, 4271, 4391, 4451, 4691, 4751, 4871, 4931, 5051, 5171
Offset: 1
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
Programs
-
Haskell
a117047 n = a117047_list !! (n-1) a117047_list = [x | k <- [0..], let x = 60 * k + 11, a010051' x == 1] -- Reinhard Zumkeller, Jul 13 2012
-
Mathematica
Flatten[Table[If[PrimeQ[60*n + 11], 60*n + 11, {}], {n, 0, 100}]] Select[60Range[0,100]+11,PrimeQ] (* Harvey P. Dale, Feb 16 2024 *)
Extensions
Wrong formula removed by Reinhard Zumkeller, Jul 13 2012
Comments