A237873 Denominator of Sum_{i=1..n} n^i/i.
1, 1, 2, 3, 12, 5, 20, 105, 280, 63, 2520, 385, 5544, 6435, 8008, 45045, 144144, 85085, 116688, 2909907, 739024, 146965, 232792560, 37182145, 356948592, 128707425, 2974571600, 717084225, 80313433200, 215656441, 30247916400, 4512611027925, 486207248800
Offset: 1
Links
- Bruno Berselli, Table of n, a(n) for n = 1..200
Programs
-
Magma
terms:=40; s:=[&+[n^i/i: i in [1..n]]: n in [1..terms]]; [Denominator(s[n]): n in [1..terms]];
-
Mathematica
f[n_] := Sum[n^i/i, {i, 1, n}]; Table[Denominator[f[n]], {n, 1, 40}]
Comments