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 A369706 #10 Jan 29 2024 19:27:58 %S A369706 1,1,1,1,1,2,3,4,7,12,20,35,62,112,199,361,657,1206,2221,4110,7636, %T A369706 14234,26618,49910,93846,176906,334184,632602,1199892,2280164,4340064, %U A369706 8273610,15796439,30202620,57820648,110826888,212681976,408610024,785833480,1512776590,2915017360 %N A369706 Maximal coefficient of (1 + x^2) * (1 + x^3) * (1 + x^4) * ... * (1 + x^n). %F A369706 a(n) ~ A025591(n)/2. - _Vaclav Kotesovec_, Jan 29 2024 %p A369706 b:= proc(n) option remember; `if`(n<2, 1, expand(b(n-1)*(1+x^n))) end: %p A369706 a:= n-> max(coeffs(b(n))): %p A369706 seq(a(n), n=0..40); # _Alois P. Heinz_, Jan 29 2024 %t A369706 Table[Max[CoefficientList[Product[(1 + x^k), {k, 2, n}], x]], {n, 0, 40}] %o A369706 (PARI) a(n) = vecmax(Vec(prod(i=2, n, 1+x^i))); \\ _Michel Marcus_, Jan 29 2024 %Y A369706 Cf. A025147, A025591. %K A369706 nonn %O A369706 0,6 %A A369706 _Ilya Gutkovskiy_, Jan 29 2024