|
%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
|
