A211663 -id:A211663 - cp's OEIS frontend

A211661 Number of iterations log_3(log_3(log_3(...(n)...))) such that the result is < 1.

1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3

Offset: 1

Hieronymus Fischer, Apr 30 2012

For n<16 same as A211663.

			a(n)=1, 2, 3, 4, 5 for n=1, 3, 3^3, 3^3^3, 3^3^3^3 (=1, 3, 27, 7625597484987, 3^7625597484987).

Cf. A001069, A010096, A211664, A211666, A211668, A211669.

Table[Length[NestWhileList[Log[3,#]&,n,#>=1&]],{n,90}]-1 (* Harvey P. Dale, Mar 08 2020 *)

With the exponentiation definition E_{i=1..n} c(i) := c(1)^(c(2)^(c(3)^(...(c(n-1)^(c(n)))...))); E_{i=1..0} := 1; example: E_{i=1..4} 3 = 3^(3^(3^3)) = 3^(3^27), we get:
a(E_{i=1..n} 3) = a(E_{i=1..n-1} 3)+1, for n>=1.
G.f.: g(x) = (1/(1-x))*Sum_{k>=0} x^(E_{i=1..k} 3). The explicit first terms of the g.f. are g(x) = (x+x^3+x^27+x^7625597484987+...)/(1-x).

A211665 Minimal number of iterations of log_10 applied to n until the result is < 1.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2

Offset: 1

Hieronymus Fischer, Apr 30 2012

Different from A055642 and A138902, cf. Example.

Instead the real-valued log function one can consider only the integer part (i.e., A004216), since log_b(x) < k <=> x < b^k <=> floor(x) < b^k for any integer k >= 0; that's also why the first 2, 3, 4, ... appears exactly for 10, 10^10, 10^(10^10) etc. - M. F. Hasler, Dec 12 2018

			a(n) = 1, 2, 3, 4 for n = 1, 10, 10^10, 10^(10^10), i.e., n = 1, 10, 10000000000, 10^10000000000.
a(n) = 2 for all n >= 10, n < 10^10.

Cf. A001069, A010096, A211661, A211663, A211666, A211668, A211670.

a[n_] := Length[NestWhileList[Log10, n, # >= 1 &]] - 1; Array[a, 100] (* Amiram Eldar, Dec 08 2018 *)

a(n,i=1)={while(n=logint(n,10),i++);i} \\ M. F. Hasler, Dec 07 2018

With E_{i=1..n} c(i) := c(1)^(c(2)^(c(3)^(...(c(n-1)^(c(n)))...))); E_{i=1..0} := 1; example: E_{i=1..3} 10 = 10^(10^10) = 10^10000000000, we have:
a(E_{i=1..n} 10) = a(E_{i=1..n-1} 10) + 1, for n >= 1.
G.f.: g(x) = (1/(1-x))*Sum_{k>=0} x^(E_{i=1..k} 10) = (x + x^10 + x^(10^10) + ...)/(1-x).

Name reworded by M. F. Hasler, Dec 12 2018

cp's OEIS Frontend

A211661 Number of iterations log_3(log_3(log_3(...(n)...))) such that the result is < 1.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula