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,1

Links

Table of n, a(n) for n=1..55.

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

Prog

(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

Crossrefs

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

Sequence in context: A186129 A284672 A265738 * A090064 A082804 A262277

Adjacent sequences: A151738 A151739 A151740 * A151742 A151743 A151744

Keyword

nonn

Author

Claudio Meller, Jun 15 2009

Status

approved