|
|
A072916
|
|
Number of m such that Floor[Prime[m]/m] = n.
|
|
0
|
|
|
3, 8, 19, 41, 117, 254, 616, 1642, 3766, 9461, 24183, 60252, 151368, 385600, 979844, 2507393, 6428977, 16513542, 42642649, 110283280, 285776799, 742428731, 1932223170, 5038580446, 13159683245, 34423463648, 90173540312
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
Only m = 2,3,4 give [p(m)/m] = 1, so a(1) = 3.
There are 8 values of m giving Floor[Prime[m]/m] = 2, namely m = 1,5,6,7,8,9,10,11, so a(2) = 8.
|
|
MATHEMATICA
|
a(n_) := Length[Cases[Table[Floor[Prime[m]/m], {m, 1, 1000000}], n]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|