Regulator

Author

Eric W. Weisstein
May 9, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/NumberTheory/Regulator.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Regulator.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Check

Select[Range[100],!IntegerQ[Sqrt[#]]&&Chop[N[Log[FundamentalUnit[#]]-NumberFieldRegulator[Sqrt[#]],1000]]=!=0&]

NumberFieldRegulator/@Range[-10,10]

NumberFieldRegulator/@Sqrt[Range[-10,10]]

NumberFieldRegulator/@(I Range[-10,10])

NumberFieldRegulator/@(Range[-10,10]^(1/3))