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,3

Links

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

Example

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

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 *)

Prog

(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

Crossrefs

Cf. A007092.

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

Sequence in context: A338494 A283370 A053827 * A193042 A327463 A279478

Adjacent sequences: A033923 A033924 A033925 * A033927 A033928 A033929

Keyword

nonn,base

Author

David W. Wilson

Extensions

Offset 0 from Michel Marcus, Nov 03 2022

Status

approved