|
Search: id:A074468
|
|
|
| A074468 |
|
Subscript m such that Sigma-Harmonic sequence, ssi[m]=Sum[1/sigma[k],{k,1,m}] >= n. |
|
+0
3
|
|
| 1, 7, 29, 129, 571, 2525, 11167, 49372, 218295, 965177
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
REFERENCES
|
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 129, p. 44, Ellipses, Paris 2008.
|
|
MATHEMATICA
|
{s=0, s1=0}; Do[s=s+(1/DivisorSigma[1, n]); If[Greater[Floor[s], s1], s1=Floor[s]; Print[{n, Floor[s]}]], {n, 1, 1000000}]
|
|
CROSSREFS
|
Cf. A002387, A004080, A046024, A074631, A074633, A074467.
Sequence in context: A055427 A048876 A126394 this_sequence A071918 A120789 A135629
Adjacent sequences: A074465 A074466 A074467 this_sequence A074469 A074470 A074471
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 29 2002
|
|
EXTENSIONS
|
2 more terms from Lekraj Beedassy (blekraj(AT)yahoo.com), Jul 14 2008
|
|
|
Search completed in 0.002 seconds
|
