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

Author

Brian J. Tyrrell, Oct 20 2012

Keywords

• nonn
• easy

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).