A093079 Position of first occurrence of n in A091966.

1, 2, 13, 4, 7, 5, 9, 11, 6, 36, 142, 185, 48, 100, 114, 688, 25, 65, 24, 66, 53, 109, 120, 28, 12, 42, 8, 80, 253, 10, 4424, 239, 61, 116, 91, 45, 51, 41, 94, 590, 171, 107, 22, 75, 847, 236, 74, 55, 168, 487, 78, 21, 180, 113, 73, 27, 211, 137, 157, 49, 46, 112, 261

Offset

1,2

Links

Table of n, a(n) for n=1..63.

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}]; d = 0; Do[b = g[n]; If[b < 101 && a[[b]] == 0, a[[b]] = n], {n, 10^5}]

Crossrefs

Cf. A091966, A093080, A093081.

Sequence in context: A344540 A338785 A335817 * A095417 A369587 A366719

Adjacent sequences: A093076 A093077 A093078 * A093080 A093081 A093082

Keyword

nonn

Author

Robert G. Wilson v, Mar 18 2004

Status

approved