A093080 - OEIS

%I #5 Mar 30 2012 17:31:00

%S 1,2,4,5,6,8,10,21,26,29,59,92,111,153

%N Indices of records in A091966.

%C A091966(A093080) = 1,2,4,6,9,27,30,52,97,193,243,317,750

%t g[n_] := Abs[ N[Log[n], 1024]]; f[n_] := Block[{k = 1}, While[ N[ Nest[g, n, k], 64] > 1/n, k++]; k]; k = 1; lst = {}; mn = 0; While[k < 10^5, a = f@ k; If[a > mn, AppendTo[lst, k]; Print@ k; mn = a]; k++]

%Y Cf. A091966, A093079, A093081.

%K hard,nonn

%O 1,2

%A _Robert G. Wilson v_, Mar 18 2004