|
Search: id:A074631
|
|
|
| A074631 |
|
Sum of a(n) terms of Composite-Harmonic series, Sum 1/(i-th composite), is > n. |
|
+0
6
|
|
| 9, 44, 168, 587, 1940, 6192, 19285, 59010, 178122, 531923, 1574706, 4628338, 13521477, 39299115, 113712434, 327752962, 941457955
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
Lim as n -> inf. a(n+1)/a(n) = e. - Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 28 2002
|
|
EXAMPLE
|
1/4 +1/6 +1/8 +1/9 +1/10 +1/12 +1/14 +1/15 +1/16 = 1045/1008, but if 1/16 is not present, the sum is less than 1; 16 is the ninth composite number.
|
|
MATHEMATICA
|
NextComposite[n_] := Block[{k = n + 1}, While[PrimeQ[k], k++ ]; k]; s=0; k = 4; Do[While[s = s + 1/k; s < n, k = NextComposite[k]]; Print[k - PrimePi[k] - 1]; k = NextComposite[k], {n, 1, 20}]
|
|
CROSSREFS
|
Cf. A002387, A016088, A046024, A002808, A004080.
Sequence in context: A050486 A036599 A059825 this_sequence A084903 A034558 A099867
Adjacent sequences: A074628 A074629 A074630 this_sequence A074632 A074633 A074634
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 27 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 28 2002
More terms from Robert Gerbicz (gerbicz(AT)freemail.hu), Aug 30 2002
2 more terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Sept 03 2002.
|
|
|
Search completed in 0.002 seconds
|
