A151741 Composite which are the sum of three consecutive composite numbers.

18, 27, 36, 45, 49, 54, 63, 75, 78, 81, 85, 90, 95, 99, 102, 105, 117, 121, 126, 135, 143, 147, 150, 153, 161, 165, 168, 171, 175, 180, 185, 189, 192, 195, 203, 207, 216, 221, 225, 228, 231, 235, 243, 247, 255, 258, 261, 265, 273, 276, 279, 282, 285, 289, 297

Offset: 1

Author

Claudio Meller, Jun 15 2009

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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 *)

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