cp's OEIS Frontend

A173526 a(n) = 1 + A053827(n-1), where A053827 is the sum-of-digits function in base 6.

%I A173526 #17 Jul 02 2019 02:59:30
%S A173526 1,2,3,4,5,6,2,3,4,5,6,7,3,4,5,6,7,8,4,5,6,7,8,9,5,6,7,8,9,10,6,7,8,9,
%T A173526 10,11,2,3,4,5,6,7,3,4,5,6,7,8,4,5,6,7,8,9,5,6,7,8,9,10,6,7,8,9,10,11,
%U A173526 7,8,9,10,11,12,3,4,5,6,7,8,4,5,6,7,8,9,5,6,7,8,9,10,6,7,8,9,10,11,7,8,9,10
%N A173526 a(n) = 1 + A053827(n-1), where A053827 is the sum-of-digits function in base 6.
%C A173526 If A053827 is regarded as a triangle then the rows converge to this sequence, i.e., a(n) = A053827(6^k+n-1) in the limit k->infinity, where k plays the role of a row index in A053827.
%C A173526 See conjecture in the entry A000120.
%C A173526 This sequence is the base b=6 case equivalent to A063787 (b=2), A173523 (b=3), A173524 (b=4), A173525 (b=5). Generic comments concerning the various bases are in A173525.
%H A173526 G. C. Greubel, <a href="/A173526/b173526.txt">Table of n, a(n) for n = 1..10000</a>
%F A173526 a(n) = A053827(6^k+n-1) where k >= ceiling(log_6(n/5)). - _R. J. Mathar_, Dec 09 2010
%F A173526 Conjecture: Fixed point of the morphism 1->{1,2,3,...,b}, 2->{2,3,4,...,b+1},
%F A173526 j->{j,j+1,...,j+b-1} for b=6. - _Joerg Arndt_, Dec 08 2010
%t A173526 Table[1 + Total[IntegerDigits[n-1, 6]], {n, 1, 110}] (* _G. C. Greubel_, Jul 02 2019 *)
%o A173526 (PARI) A053827(n)= if(n<1, 0, if(n%6, a(n-1)+1, a(n/6)));
%o A173526 vector(110, n, 1+A053827(n-1)) \\ _G. C. Greubel_, Jul 02 2019
%Y A173526 Cf. A000120, A053827, A063787.
%Y A173526 Cf. A173523, A173524, A173525, A173527, A173528, A173529.
%K A173526 nonn,base
%O A173526 1,2
%A A173526 _Omar E. Pol_, Feb 20 2010
%E A173526 More terms from _Vincenzo Librandi_, Aug 02 2010