%I #18 Feb 08 2017 16:19:07
%S 2,6,33,280,3245,47376,828583,16817536,387783369,10003628800,
%T 285351587411,8916579449856,302881333613053,11112094003849216,
%U 437895198055227375,18446764996499439616,827240617573764860177,39346414477670243303424
%N a(n) = n^n + n!.
%H Alois P. Heinz, <a href="/A053042/b053042.txt">Table of n, a(n) for n = 1..200</a>
%F E.g.f.: 1/(1 + LambertW(-x)) + 1/(1 - x), where LambertW() is the Lambert W-function. - _Ilya Gutkovskiy_, Jan 08 2017
%t lst={};Do[AppendTo[lst, n^n+n! ], {n, 3*4!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Nov 20 2008 *)
%t Table[n^n+n!,{n,20}] (* _Harvey P. Dale_, Dec 31 2016 *)
%Y Cf. A000142, A000312, A036679.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Feb 24 2000