|
Search: id:A074633
|
|
|
| A074633 |
|
Subscript m such that Pi-harmonic sequence, pip[m]=Sum[1/PrimePi[k], {k, 1, m}]>=n. Here PrimePi()=A000720(). |
|
+0
5
|
|
| 2, 4, 8, 12, 18, 27, 37, 51, 68, 89, 116, 147, 186, 232, 287, 352, 428, 518, 623, 745, 887, 1050, 1240, 1456, 1704, 1987, 2309, 2674, 3090, 3557, 4087, 4684, 5353, 6105, 6949, 7892, 8944, 10121, 11431, 12885, 14502, 16298, 18286, 20485, 22917, 25607
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
n=85 is first exceeded at k=927685 subscript.
|
|
MATHEMATICA
|
{s=0, s1=0}; Do[s=s+(1/PrimePi[n]); If[Greater[Floor[s], s1], s1=Floor[s]; Print[{n, Floor[s]}]], {n, 2, 1000000}]
|
|
CROSSREFS
|
Cf. A004080, A046024, A074631, A000720.
Sequence in context: A053799 A085891 A006501 this_sequence A006500 A134181 A125606
Adjacent sequences: A074630 A074631 A074632 this_sequence A074634 A074635 A074636
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 28 2002
|
|
|
Search completed in 0.002 seconds
|
