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