A130425 a(n) = numerator of Sum_{k=1..n} 1/k^(n+1-k).
1, 3, 19, 107, 1471, 164059, 65442581, 26560388929, 10901416818161, 4504891039128649, 20562691778919031051, 94108143760454361244249, 5609165278757040127506253363, 334755533004517896353486403105731
Offset: 1
Programs
-
Mathematica
Table[Numerator[Sum[1/k^(n + 1 - k), {k, 1, n}]], {n, 1, 20}] (* Stefan Steinerberger, May 30 2007 *)
Extensions
More terms from Stefan Steinerberger, May 30 2007