login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A297381 Numerator of -A023900(n)/2. 3
-1, 1, 1, 1, 2, -1, 3, 1, 1, -2, 5, -1, 6, -3, -4, 1, 8, -1, 9, -2, -6, -5, 11, -1, 2, -6, 1, -3, 14, 4, 15, 1, -10, -8, -12, -1, 18, -9, -12, -2, 20, 6, 21, -5, -4, -11, 23, -1, 3, -2, -16, -6, 26, -1, -20, -3, -18, -14, 29, 4, 30, -15, -6, 1, -24, 10, 33, -8, -22, 12, 35, -1, 36, -18, -4, -9, -30, 12, 39, -2, 1, -20, 41, 6, -32, -21, -28, -5 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,5
LINKS
FORMULA
a(n) = numerator of -A023900(n)/2.
a(n) = numerator of lim_{s->0} zeta(s)*Sum_{d|n} A008683(d)/d^(s-1).
a(n) = numerator of lim_{N->infinity} (1/N)*Sum_{m=1..N} Sum_{k=1..m} A191898(n, k) for n > 1.
a(k) = numerators of lim_{N->infinity} (1/N)*Sum_{m=1..N} Sum_{n=1..m} A191898(n, k) for k > 1.
MATHEMATICA
Clear[n, s, nn]; nn = 64; Numerator[Table[Limit[Zeta[s]*Total[MoebiusMu[Divisors[n]]/Divisors[n]^(s - 1)], s -> 0], {n, 1, nn}]]
PROG
(PARI) a(n) = numerator(-sumdiv(n, d, d*moebius(d))/2) \\ Iain Fox, Dec 29 2017
(PARI) A297381(n) = numerator(-(1/2)*factorback(apply(p -> 1-p, factor(n)[, 1]))); \\ Antti Karttunen, Sep 30 2018
CROSSREFS
Cf. A023900, A297382 (denominators).
Sequence in context: A007740 A117811 A349431 * A051793 A065371 A300982
KEYWORD
sign,frac
AUTHOR
Mats Granvik, Dec 29 2017
EXTENSIONS
More terms from Antti Karttunen, Sep 30 2018
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 00:26 EDT 2024. Contains 371264 sequences. (Running on oeis4.)