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 A171843 #14 Apr 14 2021 05:23:28 %S A171843 1,1,3,1,3,8,1,3,6,21,1,3,6,12,55,1,3,6,10,24,144,1,3,6,10,17,48,377, %T A171843 1,3,6,10,15,30,96,987,1,3,6,10,15,23,53,192,2584,1,3,6,10,15,21,37, %U A171843 93,384,6765,1,3,6,10,15,21,30,61,163,768,17711,1,3,6,10,15,21,28,45,100,286,1536,46368 %N A171843 Triangle read by rows = truncated columns of an array formed by variants of the natural number decrescendo triangle, A004736. %C A171843 Rows tend to the triangular series, A000217. %C A171843 Let T(n) be the variants of the natural number decrescendo triangle, A004736; such that T(n) = A004736, prepending n ones to the leftmost column. Then take Lim_{k=1..inf} ((T(n))^k, left-shifted vectors considered as sequences = rows of the array, deleting the first 1. The rows of this triangle sequence are the truncated columns of the array with one "1" per row. %H A171843 Andrew Howroyd, <a href="/A171843/b171843.txt">Table of n, a(n) for n = 1..1275</a> (rows 1..50) %e A171843 First few rows of the array are: %e A171843 . %e A171843 1, 3, 8, 21, 55, 144, 377, 987, ... %e A171843 1, 1, 3, 6, 12, 24, 48, 96, ... %e A171843 1, 1, 1, 3, 6, 10, 17, 30, ... %e A171843 1, 1, 1, 1, 3, 6, 10, 15, ... %e A171843 1, 1, 1, 1, 1, 3, 6, 10, ... %e A171843 ... %e A171843 First few rows of the triangle = %e A171843 1; %e A171843 1, 3; %e A171843 1, 3, 8; %e A171843 1, 3, 6, 21; %e A171843 1, 3, 6, 12, 55; %e A171843 1, 3, 6, 10, 24, 144; %e A171843 1, 3, 6, 10, 17, 48, 377; %e A171843 1, 3, 6, 10, 15, 30, 96, 987; %e A171843 1, 3, 6, 10, 15, 23, 53, 192, 2584; %e A171843 1, 3, 6, 10, 15, 21, 37, 93, 384, 6765; %e A171843 1, 3, 6, 10, 15, 21, 30, 61, 163, 768, 17711; %e A171843 1, 3, 6, 10, 15, 21, 28, 45, 100, 286, 1536, 46368; %e A171843 ... %e A171843 Example: Row 2 of the array is generated from a variant of A004736, the leftmost column with two prepended 1's, = T(2): %e A171843 1; %e A171843 1; %e A171843 1; %e A171843 2, 1; %e A171843 3, 2, 1; %e A171843 ... %e A171843 Take lim_{k->inf.} (P(2))^k, obtaining a left-shifted vector considered as a sequence; then delete the first 1, getting row 2 of the array. %o A171843 (PARI) %o A171843 T(n)={[Vec(p) | p<-Vec(sum(k=1, n, x^k*y^(k-1)*(1 - x^k)/((1 - x)*(1 - 2*x + x^2 - x^k)) + O(x*x^n)))]} %o A171843 { my(A=T(10)); for(n=1, #A, print(A[n])) } \\ _Andrew Howroyd_, Apr 13 2021 %Y A171843 Row sums are A171844. %Y A171843 Diagonals include A001906, A003945, A259968. %Y A171843 Cf. A004736. %K A171843 nonn,tabl %O A171843 1,3 %A A171843 _Gary W. Adamson_, Dec 19 2009 %E A171843 a(52) corrected and terms a(56) and beyond from _Andrew Howroyd_, Apr 13 2021