%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