|
%I #13 Jan 31 2020 13:22:29
%S 2,4,10,14,16,22,26,32,46,50,52,56,64,74,80,92,94,100,106,112,124,130,
%T 134,136,142,152,164,166,170,172,176,182,190,194,196,214,220,232,236,
%U 242,254,260,262,274,284,290,292,296,302,310,320,322,326,334,346,350
%N Numbers n such that 11*n - 3 is prime.
%H Harvey P. Dale, <a href="/A107992/b107992.txt">Table of n, a(n) for n = 1..1000</a>
%e If n=2, then 11*n - 3 = 19 (prime).
%e If n=50, then 11*n - 3 = 547 (prime).
%p a:=proc(n) if isprime(11*n-3)=true then n else fi end: seq(a(n),n=1..400); # _Emeric Deutsch_, Jun 26 2005
%t Select[Range[400],PrimeQ[11#-3]&] (* _Harvey P. Dale_, Jan 31 2020 *)
%o (PARI) is(n)=isprime(11*n-3) \\ _Charles R Greathouse IV_, Jun 13 2017
%K nonn,easy
%O 1,1
%A _Parthasarathy Nambi_, Jun 14 2005
%E More terms from _Emeric Deutsch_, Jun 26 2005
|
