A245506 - OEIS

%I #5 Jul 25 2014 09:10:21

%S 1,1,3,12,73,556,4737,44122,453441,5226984,69703201,1132247854,

%T 22865062497,541274154604,13810143608913,361165919643666,

%U 9534875308290433,254667431232941008,6928956222876625473,193066959857334885334,5521621116955849623201

%N Number of endofunctions f on [n] such that f^10(i) = f(i) for all i in [n].

%H Alois P. Heinz, <a href="/A245506/b245506.txt">Table of n, a(n) for n = 0..200</a>

%F E.g.f: exp(Sum_{j=0..2} (x*exp(x))^(3^j)/(3^j)).

%p egf:= exp(add((x*exp(x))^(3^j)/(3^j), j=0..2)):

%p a:= n-> n!*coeff(series(egf, x, n+1), x, n):

%p seq(a(n), n=0..25);

%Y Column k=10 of A245501.

%K nonn

%O 0,3

%A _Alois P. Heinz_, Jul 24 2014