A286590 Numbers that are divisible by the product of their factorial base digits (A208575).

1, 3, 9, 21, 33, 45, 81, 153, 165, 201, 393, 405, 441, 645, 873, 885, 921, 1113, 1125, 1161, 1365, 2313, 2565, 3765, 4005, 5913, 5925, 5961, 6153, 6165, 6201, 6405, 7353, 7641, 8805, 9045, 15993, 16281, 17433, 26085, 26325, 36393, 36645, 46233, 46245, 46281, 46473, 46485, 46521, 46725, 47673

Offset: 1

Author

Antti Karttunen, Jun 18 2017

Keywords

• nonn
• base

Comments

After the initial 1, all terms are multiples of three.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..500 (terms 1..120 from Antti Karttunen)
• Index entries for sequences related to factorial base representation

Crossrefs

Cf. A007489 (a subsequence), A208575, A118363.

Cf. A007602 (for base-10 analog).

Programs

Mathematica

max = 8; Select[Range[max!], FreeQ[(d = IntegerDigits[#, MixedRadix[Range[max, 2, -1]]]), 0] && Divisible[#, Times @@ d] &] (* Amiram Eldar, Feb 16 2021 *)