|
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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: A153732 A089924 A178457 * A074839 A002318 A095681
Adjacent sequences: A072913 A072914 A072915 * A072917 A072918 A072919
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com) Aug 11 2002
|
|
|
EXTENSIONS
| a(16) through a(27) from Farideh Firoozbakht Sep 13 2005
Typo corrected by David W. Wilson, Oct 22 2005
|
| |
|
|
