|
Search: id:A074469
|
|
|
| A074469 |
|
Subscript m such that SigmaComposite-Harmonic series cd[m]=Sum[1/A000203[A002808(k)],{k,1,m}]>=n. |
|
+0
2
|
| |
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] {s=0, s1=0}; Do[s=s+(1/DivisorSigma[1, 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, A074470.
Sequence in context: A122103 A009526 A060158 this_sequence A061958 A050279 A096764
Adjacent sequences: A074466 A074467 A074468 this_sequence A074470 A074471 A074472
|
|
KEYWORD
|
hard,more,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Sep 05 2002
|
|
|
Search completed in 0.002 seconds
|
