%I #5 Jan 20 2020 21:45:38
%S 0,1,2,3,4,20,216,1862,13840,104904,949200,10517232,130307904,
%T 1694503824,23063845728,335427395760,5269616092416,88835797577472,
%U 1587229554415104,29838489410093184,589394278657267200,12235109311726689024,266570965998899071488
%N E.g.f.: log(1 - x - log(1 - x)).
%C Logarithmic transform applied twice to A000166.
%t nmax = 23; CoefficientList[Series[Log[1 - x - Log[1 - x]], {x, 0, nmax}], x] Range[0, nmax]! // Rest
%Y Cf. A000166, A052808, A089064, A331559.
%K nonn
%O 1,3
%A _Ilya Gutkovskiy_, Jan 20 2020