OFFSET
3,1
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, 13}] (* Vincenzo Librandi, Sep 30 2017 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, May 15 2015
STATUS
approved