|
|
REFERENCES
| J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 181, p. 56, Ellipses, Paris 2008.
L. J. Mordell, Diophantine Equations, Academic Press, NY, 1969, p. 205.
|
|
|
MATHEMATICA
| ok[n_] := Reduce[k>0 && n^2 + 7 == 2^k, k, Integers] =!= False; Select[Range[1000], ok] (* From Jean-François Alcover, Sep 21 2011 *)
|
