Cahen's Constant

Author

Eric W. Weisstein
July 12, 2008

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

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

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

Value

RSolve[{e[n]==e[n-1]^2-e[n-1]+1,e[0]==2},e[n],n]

e[0]:=2
e[n_]:=e[n]=e[n-1]^2-e[n-1]+1

e/@Range[0,5]

N[Total[Table[((((-1))^k)/(e[k]-1)),{k,0,20}]],1000]

N[Total[Table[((((-1))^k)/(e[k]-1)),{k,0,25}]],1000]