OFFSET
1,2
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);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alois P. Heinz, Apr 22 2020
EXTENSIONS
a(27)-a(36) from Giovanni Resta, May 04 2020
STATUS
approved