|
Search: id:A074470
|
|
|
| A074470 |
|
Subscript m such that PhiComposite-Harmonic series cd[m]=Sum[1/A000010[A002808(k)],{k,1,m}]>=n. |
|
+0
2
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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: A130883 A005581 A064468 this_sequence A023550 A130869 A023612
Adjacent sequences: A074467 A074468 A074469 this_sequence A074471 A074472 A074473
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Sep 05 2002
|
|
EXTENSIONS
|
More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Jul 23 2005
|
|
|
Search completed in 0.002 seconds
|
