Power Ceilings

Author

Eric W. Weisstein
January 25, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/PowerCeilings.nb.

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

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

3/2 Sequence

x[0]:=1
x[n_]:=x[n]Ceiling[3/2x[n-1]]

Table[x[n],{n,0,20}]

Table[Floor[1.6222705028(3/2)^n],{n,0,20}]

Constant

N[With[{n=10^4},Nest[Ceiling[3/2#]&,1,n]/(3/2)^n],100]//Timing

N[With[{n=10^5},Nest[Ceiling[3/2#]&,1,n]/(3/2)^n],100]//Timing