A033926 Base 6 digital convolution sequence.

1, 1, 2, 3, 4, 5, 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, 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, 7, 8, 9, 10, 11, 12, 4, 5, 6, 7, 8, 9, 5, 6, 7, 8, 9, 10, 6, 7, 8, 9, 10, 11, 7, 8, 9, 10, 11, 12, 8, 9

Offset: 0

Author

David W. Wilson

Keywords

• nonn
• base

Examples

			181 = 501 in base 6, so a(181) = 5*a(2)+0*a(1)+1*a(0) = 5*2+0+1 = 11.
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 0..7776

Crossrefs

Cf. A007092.

Cf. A033922, A033923, A033924, A033925, A033927, A033928, A033929, A033930.

Programs

Mathematica

nn = 90; a[0] = 1; Do[k = Total@ MapIndexed[#1 a[First[#2] - 1] &, Reverse@ IntegerDigits[n, 6]]; a[n] = k, {n, nn}]; Array[a, nn + 1, 0] (* Michael De Vlieger, Nov 03 2022 *)

PARI

a(n) = if (n, my(d=digits(n, 6)); sum(k=1, #d, d[k]*a(#d-k)), 1); \\ Michel Marcus, Nov 03 2022

Extensions

Offset 0 from Michel Marcus, Nov 03 2022