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 A309169 #11 Jul 16 2019 03:33:34 %S A309169 1,1,2,66,24,7398000,720,445824751680,4762759680,100329999065856000, %T A309169 3628800,1019618790465528595884298768746577920000,479001600, %U A309169 97532934291415606872784896000,5460491900297503751785620701184000,1567611138605648558776157123803950409816473600000 %N A309169 a(n) = Product_{d|n} |Stirling1(n,d)|. %p A309169 f:= proc(n) local d; mul(abs(combinat:-stirling1(n,d)),d=numtheory:-divisors(n)) end proc: %p A309169 map(f, [$1..30]); # _Robert Israel_, Jul 15 2019 %t A309169 Table[Product[Abs[StirlingS1[n, d]], {d, Divisors[n]}], {n, 1, 16}] %o A309169 (PARI) a(n) = my(d=divisors(n)); prod(k=1, #d, abs(stirling(n, d[k], 1))); \\ _Michel Marcus_, Jul 16 2019 %Y A309169 Cf. A008275, A058807, A096308, A309171. %K A309169 nonn %O A309169 1,3 %A A309169 _Ilya Gutkovskiy_, Jul 15 2019