OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[1, 200], Product[Abs[Sum[N[E^(2*Pi*I*k^s/#), 100], {k, 0, #-1}]], {s, 2, 200}] > 0 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Jan 10 2024
STATUS
approved