login
A093081
Records in A091966.
3
1, 2, 4, 6, 9, 27, 30, 52, 97, 193, 243, 317, 750, 911
OFFSET
1,2
FORMULA
MATHEMATICA
f[n_] := Abs[ N[ Log[ n], 1024]]; g[n_] := Block[{k = 1}, While[ N[ Nest[f, n, k], 64] > 1/n, k++ ]; k]; a = Table[0, {100}]; c = {}; d = 0; Do[b = g[n]; If[b > d, AppendTo[c, n]; d = b], {n, 1, 10^5}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Mar 18 2004
STATUS
approved