|
%I #17 Sep 08 2022 08:45:16
%S 2,6,8,18,30,32,36,38,42,56,60,62,66,78,80,86,90,92,102,116,120,128,
%T 132,146,162,170,182,188,192,198,206,210,212,216,218,230,242,246,248,
%U 260,266,270,276,288,290,296,300,302,308,312,318,330,336,338,350,356,366
%N Numbers n such that 11*n + 1 is prime.
%H Robert Israel, <a href="/A102656/b102656.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = (A141849(n) -1)/11 = 2*A215667(n). - _Robert Israel_, Apr 03 2019
%e At n=2, 11*2 + 1 = 23 (prime).
%e At n=60, 11*60 + 1 = 661 (prime).
%e At n=120, 11*120 + 1 = 1321 (prime).
%p select(t -> isprime(11*t+1), [seq(i,i=2..1000,2)]); # _Robert Israel_, Apr 03 2019
%t Select[ Range[2, 367, 2], PrimeQ[11# + 1] &] (* _Robert G. Wilson v_, Feb 04 2005 *)
%o (PARI) is(n)=isprime(11*n+1) \\ _Charles R Greathouse IV_, Jun 06 2017
%o (Magma) [n: n in [1..380] | IsPrime(11*n+1)]; // _G. C. Greubel_, Apr 03 2019
%o (Sage) [n for n in (1..380) if is_prime(11*n+1)] # _G. C. Greubel_, Apr 03 2019
%o (GAP) Filtered([1..380], n-> IsPrime(11*n+1)) # _G. C. Greubel_, Apr 03 2019
%Y Cf. A141849, A215667.
%K nonn
%O 1,1
%A _Parthasarathy Nambi_, Feb 02 2005
%E More terms from _Robert G. Wilson v_, Feb 04 2005
|
