|
Search: id:A072916
|
|
|
| A072916 |
|
Number of m such that Floor[Prime[m]/m] = n. |
|
+0
1
|
|
| 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; listen)
|
|
|
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: A095846 A153732 A089924 this_sequence A074839 A002318 A095681
Adjacent sequences: A072913 A072914 A072915 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
