A188264 Numbers m that are divisible by the product of the factorials of their digits in base 10.

1, 2, 10, 11, 12, 20, 30, 100, 101, 102, 110, 111, 112, 120, 132, 200, 210, 212, 220, 240, 300, 312, 1000, 1001, 1002, 1010, 1011, 1012, 1020, 1032, 1100, 1101, 1102, 1104, 1110, 1111, 1112, 1120, 1200, 1210, 1212, 1220, 1320, 2000, 2010, 2012, 2020, 2100, 2110, 2112

Offset

1,2

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Example

Number 30 is in sequence because 30 is divisible by the product of factorials 3!*0! = 6.

Mathematica

Select[Range[2200], Divisible[#, Times@@(IntegerDigits[#]!)]&] (* Harvey P. Dale, May 24 2017 *)

Prog

(Haskell)
import Data.List (elemIndices)
a188264 n = a188264_list !! (n-1)
a188264_list =
   map (+ 1) $ elemIndices 0 $ zipWith mod [1..] $ map a066459 [1..]
-- Reinhard Zumkeller, Oct 11 2011

Crossrefs

Cf. A061602, A066459, A093325.

Cf. A066459, A000142, A197181.

Sequence in context: A105116 A136819 A136816 * A169683 A134948 A060045

Adjacent sequences: A188261 A188262 A188263 * A188265 A188266 A188267

Keyword

nonn,base

Author

Jaroslav Krizek, Mar 25 2011

Status

approved