A130492 a(n) = denominator of Sum_{k=1..n} k^mu(n+1-k), where mu(m) = A008683(m).
1, 1, 2, 6, 12, 20, 10, 84, 840, 72, 630, 1320, 2772, 1560, 90090, 42, 240240, 1904, 46410, 95760, 639540, 5040, 9699690, 637560, 14316120, 92400, 176125950, 308880, 20078358300, 475020, 33845175, 7447440, 116925953760, 110880, 501401225325, 2227680, 244906200
Offset: 1
Programs
-
Maple
A130492 := proc(n) denom(add(k^numtheory[mobius](n+1-k),k=1..n)) ; end: seq(A130492(n),n=1..40) ; # R. J. Mathar, Oct 16 2007
-
Mathematica
Table[Denominator[Sum[k^MoebiusMu[n+1-k], {k, n}]], {n, 37}] (* James C. McMahon, Feb 09 2025 *)
Extensions
More terms from R. J. Mathar, Oct 16 2007
a(36)-a(37) from James C. McMahon, Feb 09 2025
Comments