

A111656


nth prime appears nth composite number times.


2



2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 5, 5, 5, 5, 5, 5, 5, 5, 7, 7, 7, 7, 7, 7, 7, 7, 7, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


REFERENCES

T. M. Apostol, Introduction to Analytic Number Theory, SpringerVerlag, 1976, page 2.


LINKS



FORMULA



MATHEMATICA

Module[{nn=20, cm, pr, len}, cm=Select[Range[nn], CompositeQ]; len = Length[ cm]; Table[#[[1]], #[[2]]]&/@Thread[{Prime[Range[len]], cm}]]//Flatten (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 06 2018 *)


CROSSREFS



KEYWORD

easy,nonn


AUTHOR



STATUS

approved



