login
A111654
n appears n-th composite number times.
4
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.
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
KEYWORD
easy,less,nonn
AUTHOR
Jonathan Vos Post, Aug 12 2005
STATUS
approved