A151741 - OEIS

%I #8 Nov 27 2019 13:25:50

%S 18,27,36,45,49,54,63,75,78,81,85,90,95,99,102,105,117,121,126,135,

%T 143,147,150,153,161,165,168,171,175,180,185,189,192,195,203,207,216,

%U 221,225,228,231,235,243,247,255,258,261,265,273,276,279,282,285,289,297

%N Composite which are the sum of three consecutive composite numbers.

%t Module[{c=Select[Range[300],CompositeQ],s3},s3=Total/@Partition[c,3,1];Intersection[c,s3]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 27 2019 *)

%o (PARI) c1=4;c2=6;for(c3=8,299,isprime(c3) && next;isprime(c1+c2+c3) || print1(c1+c2+c3",");c1=c2;c2=c3) \\ _M. F. Hasler_, Jun 16 2009

%Y Cf. A151740-A151745, A060254, A060327, A060339, A096785, A096787, A135170.

%K nonn

%O 1,1

%A _Claudio Meller_, Jun 15 2009