OFFSET
3,2
LINKS
Karl Dilcher and Larry Ericksen, The Polynomials of Mahler and Roots of Unity, The American Mathematical Monthly, Vol. 122, No. 04 (April 2015), pp. 338-353.
MATHEMATICA
Table[Length[Select[Flatten[Abs[z/.NSolve[Sum[z^(2^j-1), {j, 0, n-1}]==0]]], #<1&]], {n, 3, 12}] (* Vaclav Kotesovec, May 17 2015, but for bigger n needs much memory (for n=14, 5 GB RAM) *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, May 15 2015
STATUS
approved