|
%I #8 Jan 10 2016 14:34:49
%S 1,1,3,10,41,196,1057,7042,87473,2004328,50881121,1200507694,
%T 26179091017,538344201292,10635924720449,204889902343666,
%U 3902206399428833,74966895289570768,1511315984060460865,34267718094037895638,937490346932078590841,30931366331911427839156
%N Number of endofunctions f on [n] such that f^8(i) = f(i) for all i in [n];
%H Alois P. Heinz, <a href="/A245504/b245504.txt">Table of n, a(n) for n = 0..200</a>
%F E.g.f.: exp(x*exp(x)+x^7*exp(x)^7/7).
%p egf:= exp(x*exp(x)+x^7*exp(x)^7/7):
%p a:= n-> n!*coeff(series(egf, x, n+1), x, n):
%p seq(a(n), n=0..25);
%t With[{nn=30},CoefficientList[Series[Exp[x Exp[x]+(x^7 Exp[x]^7)/7],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jan 10 2016 *)
%Y Column k=8 of A245501.
%K nonn
%O 0,3
%A _Alois P. Heinz_, Jul 24 2014
|
