This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A363736 #17 Jul 03 2023 00:53:22 %S A363736 1,0,3,-1,25,59,721,-841,60481,15119,3628801,12972959,479001601, %T A363736 8648639,134399865601,-218205187201,20922789888001,174888473759999, %U A363736 6402373705728001,-15205972772390401,3652732042831872001,14079294028799,1124000727777607680001 %N A363736 a(n) = (n-1)! * Sum_{d|n} (-1)^(d+1) / (d-1)!. %F A363736 E.g.f.: Sum_{k>0} (1 - exp(-x^k))/k. %F A363736 E.g.f.: Sum_{k>0} (-1)^k * log(1-x^k)/k!. %F A363736 If p is an odd prime, a(p) = 1 + (p-1)!. %t A363736 a[n_] := (n-1)! * DivisorSum[n, (-1)^(#+1)/(#-1)! &]; Array[a, 25] (* _Amiram Eldar_, Jul 03 2023 *) %o A363736 (PARI) a(n) = (n-1)!*sumdiv(n, d, (-1)^(d+1)/(d-1)!); %Y A363736 Cf. A087906, A132960, A352013, A363737. %K A363736 sign %O A363736 1,3 %A A363736 _Seiichi Manyama_, Jun 18 2023