OFFSET
0,2
MATHEMATICA
b[n_]:=CoefficientList[Product[Sum[x^Prime[i], {i, k}], {k, n}], x]; Table[Min[Position[b[n], Max[b[n]]]]-1, {n, 0, 52}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Dec 27 2022
STATUS
approved