|
%I #9 Feb 16 2024 16:14:38
%S 11,71,131,191,251,311,431,491,911,971,1031,1091,1151,1451,1511,1571,
%T 1811,1871,1931,2111,2351,2411,2531,2591,2711,3011,3191,3251,3371,
%U 3491,3671,3851,3911,4091,4211,4271,4391,4451,4691,4751,4871,4931,5051,5171
%N Primes of the form 60*n+11.
%C a(n) = A211890(5,n-1) for n <= 6. - _Reinhard Zumkeller_, Jul 13 2012
%H Reinhard Zumkeller, <a href="/A117047/b117047.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Table[If[PrimeQ[60*n + 11], 60*n + 11, {}], {n, 0, 100}]]
%t Select[60Range[0,100]+11,PrimeQ] (* _Harvey P. Dale_, Feb 16 2024 *)
%o (Haskell)
%o a117047 n = a117047_list !! (n-1)
%o a117047_list = [x | k <- [0..], let x = 60 * k + 11, a010051' x == 1]
%o -- _Reinhard Zumkeller_, Jul 13 2012
%Y Cf. A007528, A132231, A214360, A010051.
%K nonn
%O 1,1
%A _Roger L. Bagula_, Apr 17 2006
%E Wrong formula removed by _Reinhard Zumkeller_, Jul 13 2012
|
