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

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

Mathematica

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

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A286590 (MATCHING-POS 1 1 (lambda (n) (let ((k (A208575 n))) (and (not (zero? k)) (zero? (modulo n k)))))))

Crossrefs

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

Cf. A007602 (for base-10 analog).

Sequence in context: A089322 A182632 A351894 * A061978 A031886 A147458

Adjacent sequences: A286587 A286588 A286589 * A286591 A286592 A286593

Keyword

nonn,base

Author

Antti Karttunen, Jun 18 2017

Status

approved