A074470 Least m such that Phi-Composite-Harmonic series Sum_{k=1..m} 1/A000010(A002808(k)) >= n.

2, 7, 16, 31, 60, 113, 205, 371, 663, 1176, 2069, 3631, 6341, 11039, 19159, 33164, 57287, 98763, 169967, 292061, 501165, 858892, 1470334, 2514423, 4295912, 7333264, 12508213, 21319360, 36312685, 61811287, 105152840, 178787270, 303829041, 516074615, 876190239

Offset

1,1

Links

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

Mathematica

c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] {s=0, s1=0}; Do[s=s+(1/EulerPhi[c[n]]); If[Greater[Floor[s], s1], s1=Floor[s]; Print[{n, Floor[s]}]], {n, 1, 1000000}]

Crossrefs

Cf. A004080, A002387, A002808, A000203, A073255, A046024, A074631, A074633, A074468, A074469.

Sequence in context: A064468 A225311 A241526 * A216499 A228189 A023550

Adjacent sequences: A074467 A074468 A074469 * A074471 A074472 A074473

Keyword

hard,nonn

Author

Labos Elemer, Sep 05 2002

Extensions

More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Jul 23 2005

a(30)-a(35) from Donovan Johnson, Aug 21 2011

Status

approved