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 A350258 #8 Dec 30 2021 07:23:27 %S A350258 1,0,1,0,2,12,0,5,44,342,0,15,188,1854,18144,0,52,908,11196,130272, %T A350258 1545600,0,203,4860,74106,1016544,13818600,193030560,0,877,28428, %U A350258 531378,8535264,132204600,2065854240,33232948560 %N A350258 Triangle read by rows. T(n, k) = k! * BellPolynomial(n, k). %e A350258 Triangle starts: %e A350258 [0] 1 %e A350258 [1] 0, 1 %e A350258 [2] 0, 2, 12 %e A350258 [3] 0, 5, 44, 342 %e A350258 [4] 0, 15, 188, 1854, 18144 %e A350258 [5] 0, 52, 908, 11196, 130272, 1545600 %e A350258 [6] 0, 203, 4860, 74106, 1016544, 13818600, 193030560 %e A350258 [7] 0, 877, 28428, 531378, 8535264, 132204600, 2065854240, 33232948560 %p A350258 A350258 := (n, k) -> ifelse(n = 0, 1, k! * BellB(n, k)): %p A350258 seq(seq(A350258(n, k), k = 0..n), n = 0..7); %t A350258 T[n_, k_] := k! BellB[n, k]; Table[T[n, k], {n, 0, 7}, {k, 0, n}] // Flatten %Y A350258 Cf. A350256, A350257, A350259, A350260, A350261, A350262, A350263. %Y A350258 Cf. A000110. %K A350258 nonn,tabl %O A350258 0,5 %A A350258 _Peter Luschny_, Dec 22 2021