|
| |
|
|
A070888
|
|
Numerator of Sum_{k=1..n} mu(k)/k.
|
|
4
| |
|
|
1, 1, 1, 1, -1, 2, -1, -1, -1, 19, -1, -1, -2323, -89, 304, 304, 163, 163, -81988, -81988, -15019, 410857, -249979, -249979, -249979, 4165258, 4165258, 4165258, 9246047, -65721449, -4193929329, -4193929329, -6504197377, -302679716, 2562470143
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
EXAMPLE
| a(6)=2 because 1-1/2-1/3-1/5+1/6 = 4/30=2/15.
|
|
|
MATHEMATICA
| Table[ Numerator[ Sum[ MoebiusMu[k]/k, {k, 1, n}]], {n, 1, 37}]
|
|
|
PROG
| PARI: t = 0; v = []; for( n = 1, 60, t= t + mu( n) / n; v = concat( v, numer( t))); v
|
|
|
CROSSREFS
| Cf. A070889.
Sequence in context: A079834 A029582 A067095 * A180849 A067101 A105816
Adjacent sequences: A070885 A070886 A070887 * A070889 A070890 A070891
|
|
|
KEYWORD
| frac,sign,easy
|
|
|
AUTHOR
| Donald S McDonald (don.mcdonald(AT)paradise.net.nz), May 17 2002
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 10 2002
|
| |
|
|
