Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #17 May 04 2020 14:25:09
%S 1,3,4,16,18,54,112,225,397,707,1566,2664,6960,9213,23066,39980,
%T 100239,116229,455539,465054,1157163,2064246,6735123,4609476,22943866,
%U 27085154,64108419,76354062,420698429,180541932,1833215296,1057775180,3361833346,5293490772,14955881506,7186246508
%N 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)}.
%p b:= proc(n, s, w) option remember; `if`(s={}, 0, (k-> add((t->
%p `if`(t=0, 1, `if`(irem(t, k)=0, b(n, s minus {j}, t)
%p +1, 0)))(w*n+j), j=s)))(1+n-nops(s))
%p end:
%p a:= n-> b(n, {$0..n-1}, 0):
%p seq(a(n), n=1..18);
%Y Row sums of A334318.
%K nonn,base
%O 1,2
%A _Alois P. Heinz_, Apr 22 2020
%E a(27)-a(36) from _Giovanni Resta_, May 04 2020