Lieb's Square Ice Constant

Author

Eric W. Weisstein
April 21, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Constants/LiebsSquareIceConstant.nb.

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

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

Counts

f={4,18,148,2970,143224,16448400,4484823396,2901094068042,4448410550095612,16178049740086515288,139402641051212392498528,2849295959501939989625992464,137950545200232788276834783781648};

MapIndexed[#1^(1/#2[[1]]^2)&,f]//N

((((4/3)))^(3/2))

N[((((4/3)))^(3/2)),20]