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 A056194 #8 Sep 06 2020 03:46:05 %S A056194 1,1,1,8,8,1,1,8,8,1,1,27,27,216,1000,1000,1000,125,125,1,9261,74088, %T A056194 74088,343,343,2744,74088,216,216,125,125,1000,35937000,4492125, %U A056194 12326391,12326391,12326391,98611128,8024024008,125375375125 %N A056194 Characteristic cube divisor of n!: a(n) = A056191(n!). %H A056194 Amiram Eldar, <a href="/A056194/b056194.txt">Table of n, a(n) for n = 1..4054</a> %F A056194 a(n) = A056191(A000142(n)). - _Amiram Eldar_, Sep 06 2020 %t A056194 f[p_, e_] := If[OddQ[e] && e > 1, p^3, 1]; a[n_] := Times @@ f @@@ FactorInteger[n!]; Array[a, 40] (* _Amiram Eldar_, Sep 06 2020 *) %Y A056194 Cf. A000142, A055229, A000188, A008833, A007913, A055231, A055230, A055772, A055071, A055204, A055773 A056552, A056195. %K A056194 nonn %O A056194 1,4 %A A056194 _Labos Elemer_, Aug 02 2000