login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS").
Other ways to donate

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: A269298 A153964 A001010 * A231187 A055529 A222735

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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified December 11 20:17 EST 2018. Contains 318051 sequences. (Running on oeis4.)