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,2

Links

Table of n, a(n) for n=1..17.

Formula

a(n) = n*A178922(n).

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}]

Prog

(Maxima) A218089[n]:=n*((n+1)^n-n^(n-1))$ makelist(A218089[n], n, 1, 30); /* Martin Ettl, Oct 29 2012 */

Crossrefs

Sequence in context: A016146 A269539 A228422 * A273587 A125449 A159738

Adjacent sequences: A218086 A218087 A218088 * A218090 A218091 A218092

Keyword

nonn,easy

Author

Brian J. Tyrrell, Oct 20 2012

Status

approved