A334319 Number of integers m in base n with distinct digits such that the number formed by the consecutive subsequence of the initial j digits is divisible by j for all j in {1,...,length(m)}.

1, 3, 4, 16, 18, 54, 112, 225, 397, 707, 1566, 2664, 6960, 9213, 23066, 39980, 100239, 116229, 455539, 465054, 1157163, 2064246, 6735123, 4609476, 22943866, 27085154, 64108419, 76354062, 420698429, 180541932, 1833215296, 1057775180, 3361833346, 5293490772, 14955881506, 7186246508

Offset: 1

Author

Alois P. Heinz, Apr 22 2020

Keywords

• nonn
• base

Crossrefs

Row sums of A334318.

Programs

Maple

b:= proc(n, s, w) option remember; `if`(s={}, 0, (k-> add((t->
      `if`(t=0, 1, `if`(irem(t, k)=0, b(n, s minus {j}, t)
          +1, 0)))(w*n+j), j=s)))(1+n-nops(s))
    end:
a:= n-> b(n, {$0..n-1}, 0):
seq(a(n), n=1..18);

Extensions

a(27)-a(36) from Giovanni Resta, May 04 2020