A054965 -id:A054965 - cp's OEIS frontend

A074118 Largest power of 3 <= 10^n.

1, 9, 81, 729, 6561, 59049, 531441, 4782969, 43046721, 387420489, 3486784401, 94143178827, 847288609443, 7625597484987, 68630377364883, 617673396283947, 5559060566555523, 50031545098999707, 450283905890997363

Offset: 0

Amarnath Murthy, Aug 27 2002

nonn

a(n)=3^d(n), with d(0)=0 and d(n)=A054965(n) if n>0. [Zak Seidov, Oct 01 2010]

Cf. A067488, A074116, A074117, A175852.

Table[3^Floor@Log[3, 10^n],{n,0,20}] (*Zak Seidov, Sep 29 2010*)

a(0)=1 and more terms from Zak Seidov, Sep 29 2010

A158333 Position of number of digits increment in the sequence of powers of 3.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 109, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 133, 135

Offset: 0

Julio Cesar de la Yncera, Mar 16 2009

			For n=1 a(1)=3 since the sequence of powers of 3 is 1, 3, 9, 27, 81, 243, 729 and numbers of digits increase at position 1,3,5,...

A123384

A158333 := proc(n)
        1+floor(n/log10(3)) ;
end proc:
seq(A158333(n),n=0..20) ; # R. J. Mathar, Sep 01 2014

a[x_] := 1 + Floor[x/Log[10, 3]]; Table[a[i], {i, 0, 20}]

a(n)=1+Floor(n/Log_10(3)) = 1+A054965(n).

Indices in offset, example, and formula adjusted by R. J. Mathar, May 21 2009

More terms from Robert G. Wilson v, May 29 2009

cp's OEIS Frontend

A074118 Largest power of 3 <= 10^n.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Extensions