A072916 Number of m such that Floor[Prime[m]/m] = n.

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

Offset

1,1

Links

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

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

Cf. A062742, A102281.

Sequence in context: A089924 A293947 A178457 * A298406 A074839 A262156

Adjacent sequences: A072913 A072914 A072915 * A072917 A072918 A072919

Keyword

nonn

Author

Zak Seidov Aug 11 2002

Extensions

a(16)-a(27) from Farideh Firoozbakht, Sep 13 2005

Typo corrected by David W. Wilson, Oct 22 2005

Status

approved