|
%I #15 Sep 08 2022 08:45:40
%S 3,5,9,17,23,33,35,39,45,47,53,57,59,65,75,89,95,99,107,117,129,135,
%T 137,147,155,159,173,177,179,183,185,189,203,207,213,239,243,245,263,
%U 269,297,305,315,317,323,329,339,347,357,365,375,383,387,389,393,395,407
%N Numbers n such that 11*n + 4 is prime.
%H Vincenzo Librandi, <a href="/A154607/b154607.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[0, 100], PrimeQ[11# + 4]&] (* _Vincenzo Librandi_, Sep 24 2012 *)
%o (Magma) [n: n in [0..410] | IsPrime(11*n+4)]; // _Vincenzo Librandi_, Sep 24 2012
%o (PARI) is(n)=isprime(11*n+4) \\ _Charles R Greathouse IV_, Sep 24 2012
%o (Sage) [n for n in (1..600) if is_prime(11*n+4)] # _G. C. Greubel_, Sep 18 2019
%o (GAP) Filtered([1..600], k-> IsPrime(11*k+4)); # _G. C. Greubel_, Sep 18 2019
%Y Cf. A017437, A141851, A154608.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jan 15 2009
|
