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 A343853 #17 Jul 01 2021 08:22:59
%S A343853 1,1,1,2,2,1,1,2,3,2,1,2,3,3,1,1,2,3,2,1,1,2,3,4,4,3,2,3,4,4,1,1,2,3,
%T A343853 2,1,1,2,3,4,5,4,3,2,1,2,3,4,5,5,4,3,4,5,5,1,1,2,3,2,1,1,2,3,4,5,4,3,
%U A343853 2,1,1,2,3,4,5,6,6,5,4,3,2,3,4,5,6,6,5,4,5,6,6
%N A343853 Irregular triangle read by rows: the n-th row gives the row indices of the matrix of 1..n^2 filled successively back and forth along antidiagonals.
%H A343853 Stefano Spezia, <a href="/A343853/b343853.txt">First 30 rows of the triangle, flattened</a>
%e A343853 The triangle begins:
%e A343853 1
%e A343853 1 1 2 2
%e A343853 1 1 2 3 2 1 2 3 3
%e A343853 1 1 2 3 2 1 1 2 3 4 4 3 2 3 4 4
%e A343853 ...
%t A343853 a={};For[n=1,n<=6,n++,For[d=1,d<=n,d++, If[OddQ[d],i=d;For [k=1,k<=d,k++, AppendTo[a,i-k+1]],i=1;For[k=1,k<=d,k++, AppendTo[a,i+k-1]]]];For[d=n+1,d<=2n-1,d++, If[OddQ[d],i= n; For[k=1,k<=2n-d,k++,AppendTo[a,i-k+1]],If[EvenQ[d],i=d-n+1;For[k=1,k<=2n-d,k++, AppendTo[a,i+k-1]]]]]]; a
%Y A343853 Cf. A000290 (row length), A002411 (row sums), A060747 (number of antidiagonals), A078475, A319573, A343854 (column indices).
%K A343853 nonn,look,tabf
%O A343853 1,4
%A A343853 _Stefano Spezia_, May 01 2021