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 A276851 #8 Mar 08 2024 16:08:44 %S A276851 1,-2,1,14,-14,1,2,-24,36,-8,-8,1,1,165,-330,135,90,-6,-36,-18,1,2,2, %T A276851 -286,715,-440,-220,55,165,55,-10,-10,-20,-10,1,1,1,2002,-6006,5005, %U A276851 2002,-1144,-2288,-572,33,396,198,396,132,-22,-22,-44,-44,-22,1,2,2,2 %N A276851 Reduced A276850. %C A276851 This is A276850 with the row polynomials P(n) divided by n+1 and with odd-indexed rows additionally multiplied by 2. %t A276851 rows[nn_] := With[{s = InverseSeries[t (1 + Sum[u[k] t^k, {k, nn}] + O[t]^(nn+1))]}, Table[Mod[n, 2, 1] (Length[p]-1) Coefficient[s, t^(n+1) Product[u[w], {w, p}]] / (n+2), {n, nn}, {p, Most@Reverse@Sort[Sort /@ IntegerPartitions[n]]}]]; %t A276851 rows[8] // Flatten (* _Andrey Zabolotskiy_, Mar 08 2024 *) %K A276851 sign,tabf %O A276851 3,2 %A A276851 _Tom Copeland_, Sep 21 2016 %E A276851 Corrected and extended by _Andrey Zabolotskiy_, Mar 08 2024