A130491 a(n) = numerator of Sum_{k=1..n} k^mu(n+1-k), where mu(m) = A008683(m).
1, 3, 9, 35, 91, 179, 117, 1181, 14113, 1415, 14839, 35617, 85271, 53251, 3503033, 1879, 12165719, 106753, 2870239, 6436711, 46663061, 402271, 850810423, 60658043, 1473361913, 10236631, 21081760033, 39731443, 2762347887557
Offset: 1
Programs
-
Maple
A130491 := proc(n) numer(add(k^numtheory[mobius](n+1-k),k=1..n)) ; end: seq(A130491(n),n=1..40) ; # R. J. Mathar, Oct 16 2007
-
Mathematica
Table[Numerator[Sum[k^MoebiusMu[n+1-k],{k,n}]],{n,29}] (* James C. McMahon, Feb 09 2025 *) -
PARI
a(n) = numerator(sum(k=1, n, k^moebius(n+1-k))); \\ Michel Marcus, Feb 09 2025
Extensions
More terms from R. J. Mathar, Oct 16 2007
Comments