A158333 - OEIS

%I #10 Aug 18 2016 15:49:12

%S 1,3,5,7,9,11,13,15,17,19,21,24,26,28,30,32,34,36,38,40,42,45,47,49,

%T 51,53,55,57,59,61,63,65,68,70,72,74,76,78,80,82,84,86,89,91,93,95,97,

%U 99,101,103,105,107,109,112,114,116,118,120,122,124,126,128,130,133,135

%N Position of number of digits increment in the sequence of powers of 3.

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

%e 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,...

%p A158333 := proc(n)

%p         1+floor(n/log10(3)) ;

%p end proc:

%p seq(A158333(n),n=0..20) ; # _R. J. Mathar_, Sep 01 2014

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

%Y A123384

%K nonn,base

%O 0,2

%A _Julio Cesar de la Yncera_, Mar 16 2009

%E Indices in offset, example, and formula adjusted by _R. J. Mathar_, May 21 2009

%E More terms from _Robert G. Wilson v_, May 29 2009