The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A091966 Let f(x)=|log x|, f^k(x)=f(f^(k-1)(x))=f iterated k times at x; a(n) = least k such that f^k(n) <= 1/n. 3
 1, 2, 2, 4, 6, 9, 5, 27, 7, 30, 8, 25, 3, 3, 3, 3, 3, 6, 9, 27, 52, 43, 8, 19, 17, 97, 56, 24, 193, 131, 24, 27, 128, 87, 7, 10, 17, 118, 111, 116, 38, 26, 9, 104, 36, 61, 24, 13, 60, 17, 37, 10, 21, 140, 48, 48, 13, 19, 243, 8, 33, 25, 171, 25, 18, 20, 20, 5, 5, 5, 5, 90, 55, 47, 44 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Table of n, a(n) for n=1..75. EXAMPLE |log 4| ~= 1.38629 > 1/4 |log |log 4| | ~= 0.32663 > 1/4 |log |log |log 4| | | ~= 1.11891 > 1/4 |log |log |log |log 4| | | | ~= 0.11235 < 1/4. Thus a(4)=4 MATHEMATICA f[n_] := N[ Abs[ Log[ n]], 1024]; g[n_] := Block[{k = 1}, While[ N[ Nest[f, n, k], 64] > 1/n, k++ ]; k]; Table[ g[n], {n, 75}] (* Robert G. Wilson v, Mar 16 2004 *) CROSSREFS First occurrence in A093079, records in A093081 and their index in A093080. Sequence in context: A153964 A001010 A357952 * A231187 A055529 A337723 Adjacent sequences: A091963 A091964 A091965 * A091967 A091968 A091969 KEYWORD nonn AUTHOR J. Taylor (integersfan(AT)yahoo.com), Mar 14 2004 EXTENSIONS More terms from Robert G. Wilson v, Mar 16 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 19 03:10 EDT 2024. Contains 373492 sequences. (Running on oeis4.)