A111654 n appears n-th composite number times.

1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9

Offset

1,5

Comments

n appears A002808(n) times.

Links

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

Mathematica

Module[{nn=20, comps, len}, comps=Select[Range[nn], CompositeQ]; len=Length[ comps]; Flatten[Table[#[[1]], {#[[2]]}]&/@Thread[{Range[len], comps}]]] (* Harvey P. Dale, Aug 17 2014 *)

Crossrefs

Cf. A002808, A111653, A111655.

Sequence in context: A259361 A111854 A132085 * A264749 A240567 A067099

Adjacent sequences: A111651 A111652 A111653 * A111655 A111656 A111657

Keyword

easy,less,nonn

Author

Jonathan Vos Post, Aug 12 2005

Status

approved