%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