OFFSET
1,2
LINKS
PROG
(PARI)
b(v)={prod(k=1, #v, sum(i=0, v[k]-1, x^(i^2)))}
c(v)={sum(i=1, #v, v[i]<>0)}
a(n)={my(m=1); if(n>1, forpart(p=n, m=max(m, c(Vec(b(p)))), [2, n])); m} \\ Andrew Howroyd, Aug 11 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Lorraine Lee, Feb 20 2019
EXTENSIONS
a(44)-a(45) from Lorraine Lee, Aug 11 2024
a(46) onwards from Andrew Howroyd, Aug 11 2024
STATUS
approved