q-Development

Author

Eric W. Weisstein
April 14, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/q-Development.nb.

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

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

Komornik-Loreti Constant

With[{q=1.7872316501829659330132748903370083853379314029618109977847814705055574917506056869913100186340753330261536175107884`100},Sum[((Mod[DigitCount[n,2,1],2])/(q^n)),{n,2000}]
]