A218089 a(n) = n*((n+1)^n - n^(n-1)).
1, 14, 165, 2244, 35755, 659238, 13856521, 327596552, 8612579511, 249374246010, 7887780406957, 270660921021516, 10015416945711619, 397588957529910734, 16855928678721845265, 760132325936960344080, 36333256253671504279279
Offset: 1
Programs
-
Maple
A178922 := proc(n) (n+1)^n-n^(n-1) ; end proc: A218089 := proc(n) n*A178922(n) ; end proc: # R. J. Mathar, Oct 21 2012
-
Mathematica
a[n_] := n*((n + 1)^n - n^(n - 1)) Table[n*((n + 1)^n - n^(n - 1)), {n, 100}]
-
Maxima
A218089[n]:=n*((n+1)^n-n^(n-1))$ makelist(A218089[n],n,1,30); /* Martin Ettl, Oct 29 2012 */
Formula
a(n) = n*A178922(n).
Comments