cp's OEIS Frontend

A218089 a(n) = n*((n+1)^n - n^(n-1)).

%I A218089 #18 Oct 29 2012 06:51:51
%S A218089 1,14,165,2244,35755,659238,13856521,327596552,8612579511,
%T A218089 249374246010,7887780406957,270660921021516,10015416945711619,
%U A218089 397588957529910734,16855928678721845265,760132325936960344080,36333256253671504279279
%N A218089 a(n) = n*((n+1)^n - n^(n-1)).
%F A218089 a(n) = n*A178922(n).
%p A218089 A178922 := proc(n)
%p A218089     (n+1)^n-n^(n-1) ;
%p A218089 end proc:
%p A218089 A218089 := proc(n)
%p A218089     n*A178922(n) ;
%p A218089 end proc: # _R. J. Mathar_, Oct 21 2012
%t A218089 a[n_] := n*((n + 1)^n - n^(n - 1))
%t A218089 Table[n*((n + 1)^n - n^(n - 1)), {n, 100}]
%o A218089 (Maxima) A218089[n]:=n*((n+1)^n-n^(n-1))$ makelist(A218089[n],n,1,30); /* _Martin Ettl_, Oct 29 2012 */
%K A218089 nonn,easy
%O A218089 1,2
%A A218089 _Brian J. Tyrrell_, Oct 20 2012