|
%I #13 Dec 13 2018 18:00:03
%S 44,70,72,74,105,111,112,132,137,140,147,154,163,170,182,193,202,207,
%T 209,235,245,248,252,258,262,273,285,312,315,317,322,329,331,336,345,
%U 347,349,359,369,372,377,384,392,397,403,404,422,427,437
%N Numbers n such that 12n+1, 12n+5, 12n+7, 12n+11 are all composite numbers.
%H Harvey P. Dale, <a href="/A242515/b242515.txt">Table of n, a(n) for n = 1..2000</a>
%e a(1) = 44; 44*12+1=529, 44*12+5=533, 44*12+7=535, 44*12+11=539, and 529, 533, 535 and 539 are all composites.
%t Select[Range[500],AllTrue[12#+{1,5,7,11},CompositeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 13 2018 *)
%o (PARI)
%o for(i=0,1000,if(!isprime(12*i+1) && !isprime(12*i+5) && !isprime(12*i+7) && !isprime(12*i+11),print1(i", "))) \\ _Lear Young_, May 16 2014
%Y Subsequence of A153383.
%K nonn
%O 1,1
%A _Lear Young_, May 16 2014
|
