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 A238325 #18 Oct 08 2022 00:01:41
%S A238325 1,2,2,1,2,3,2,2,3,2,2,6,1,2,2,4,3,4,2,2,4,6,2,6,2,2,4,4,2,3,9,4,2,2,
%T A238325 4,4,2,6,6,3,12,1,2,2,4,4,2,4,6,3,6,6,12,5,2,2,4,4,2,4,6,6,4,6,3,18,2,
%U A238325 4,10,2,2,4,4,2,4,6,4,4,6,3,6,12,2,6
%N A238325 Array: row n gives the number of occurrences of each possible antidiagonal partition of n, arranged in reverse-Mathematica order.
%C A238325 Suppose that p is a partition of n, let F(p) be its Ferrers matrix, as defined at A237981, and let mXm be the size of F(p). The numbers of 1's in each of the 2m-1 antidiagonals of F(p) form a partition of n. Any partition which is associated with a partition of n in this manner is introduced here as an antidiagonal partition of n. A000041(n) = sum of the numbers in row n; A000009(n) = number of terms in row n, since the antidiagonal partitions of n are the conjugates of the strict partitions of n.
%H A238325 Clark Kimberling, <a href="/A238325/b238325.txt">Table of n, a(n) for n = 1..1000</a>
%H A238325 Clark Kimberling and Peter J. C. Moses, <a href="http://faculty.evansville.edu/ck6/GalleryThree/Introduction3.html">Ferrers Matrices and Related Partitions of Integers</a>
%e A238325 The Mathematica ordering of the 6 antidiagonal partitions of 8 follows: 3221, 32111, 22211, 221111, 2111111, 11111111. Frequencies of these among the 22 partitions of 8 are given in reverse Mathematica ordering as follows: 11111111 occurs 2 times, 2111111 occurs 2 times, 221111 occurs 4 times, 22211 occurs 6 times, 32111 occurs 2 times, and 3221 occurs 6 times, so that row 8 of the array is 2 2 4 6 2 6.
%e A238325 ...
%e A238325 First 12 rows:
%e A238325 1;
%e A238325 2;
%e A238325 2, 1;
%e A238325 2, 3;
%e A238325 2, 2, 3;
%e A238325 2, 2, 6, 1;
%e A238325 2, 2, 4, 3, 4;
%e A238325 2, 2, 4, 6, 2, 6;
%e A238325 2, 2, 4, 4, 2, 3, 9, 4;
%e A238325 2, 2, 4, 4, 2, 6, 6, 3, 12, 1;
%e A238325 2, 2, 4, 4, 2, 4, 6, 3, 6, 6, 12, 5;
%e A238325 2, 2, 4, 4, 2, 4, 6, 6, 4, 6, 3, 18, 2, 4, 10;
%t A238325 z = 20; ferrersMatrix[list_] := PadRight[Map[Table[1, {#}] &, #], {#, #} &[Max[#, Length[#]]]] &[list]; antiDiagPartNE[list_] := Module[{m = ferrersMatrix[list]}, Map[Diagonal[Reverse[m], #] &, Range[-#, #] &[Length[m] - 1]]]; a1[n_] := Last[Transpose[Tally[Map[DeleteCases[Reverse[Sort[Map[Count[#, 1] &, antiDiagPartNE[#]]]], 0] &, IntegerPartitions[n]]]]];
%t A238325 t = Table[a1[n], {n, 1, z}]; TableForm[Table[a1[n], {n, 1, z}]] (* A238325, array *)
%t A238325 u = Flatten[t] (* A238325, sequence *)
%t A238325 (* _Peter J. C. Moses_, 18 February 2014 *)
%Y A238325 Cf. A238326.
%K A238325 nonn,tabf,easy
%O A238325 1,2
%A A238325 _Clark Kimberling_ and _Peter J. C. Moses_, Feb 24 2014
%E A238325 Example corrected by _Peter J. Taylor_, Apr 10 2022