%I #2 Mar 30 2012 17:31:00
%S 1,2,13,4,7,5,9,11,6,36,142,185,48,100,114,688,25,65,24,66,53,109,120,
%T 28,12,42,8,80,253,10,4424,239,61,116,91,45,51,41,94,590,171,107,22,
%U 75,847,236,74,55,168,487,78,21,180,113,73,27,211,137,157,49,46,112,261
%N Position of first occurrence of n in A091966.
%t 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}]; d = 0; Do[b = g[n]; If[b < 101 && a[[b]] == 0, a[[b]] = n], {n, 10^5}]
%Y Cf. A091966, A093080, A093081.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Mar 18 2004
|