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 A351708 #14 Dec 06 2022 09:39:36
%S A351708 0,1,1,2,1,8,1,24,6,122,1,744,1,5042,126,40320,1,363600,1,3628824,
%T A351708 5046,39916802,1,479041920,120,6227020802,362880,87178291224,1,
%U A351708 1307677997520,1,20922789888000,39916806,355687428096002,5160,6402374184729600,1
%N A351708 a(n) = Sum_{p|n, p prime} (n/p)!.
%H A351708 Robert Israel, <a href="/A351708/b351708.txt">Table of n, a(n) for n = 1..897</a>
%F A351708 a(A000040(n)) = 1.
%e A351708 a(6) = 8; a(6) = Sum_{p|6} (6/p)! = (6/2)! + (6/3)! = 3*2 + 2*1 = 8.
%p A351708 f:= proc(n) local p;
%p A351708 add((n/p)!, p = numtheory:-factorset(n))
%p A351708 end proc:
%p A351708 map(f, [$1..40]); # _Robert Israel_, Dec 05 2022
%t A351708 Table[DivisorSum[n, Factorial[n/#] &, PrimeQ], {n, 36}] (* _Michael De Vlieger_, Dec 06 2022 *)
%Y A351708 Cf. A000040, A000142, A062363, A351709.
%K A351708 nonn,look
%O A351708 1,4
%A A351708 _Wesley Ivan Hurt_, Feb 16 2022