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 A366746 #4 Nov 12 2023 22:01:08
%S A366746 1,2,2,2,2,6,6,6,8,8,12,16,20,22,30,36,42,56,68,82,118,134,160,174
%N A366746 Maximum distance between a partition of n and its contraconjugate.
%C A366746 See A366745 for the definition of contraconjugate.
%t A366746 r[n_, k_] := r[n, k] = Join[p[n, k], ConstantArray[0, n - Length[p[n, k]]]];
%t A366746 p1[n_, k_] := p1[n, k] = Reverse[IntegerPartitions[n]][[k]];
%t A366746 r1[n_, k_] := r1[n, k] = Join[p1[n, k], ConstantArray[0, n - Length[p1[n, k]]]];
%t A366746 d[u_, v_] := Total[Abs[u - v]]; (* distance function *)
%t A366746 t[n_] := Flatten[Table[d[r[n, k], r1[n, k]], {k, 1, c[n]}]];
%t A366746 t1 = Table[Count[t[n], m], {n, 1, 24}, {m, 0, 2 n - 1, 2}]; (* A366745 *)
%t A366746 Map[Max, t1]
%Y A366746 Cf. A000041, A366745, A366745.
%K A366746 nonn,more
%O A366746 1,2
%A A366746 _Clark Kimberling_, Oct 25 2023