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

Author

Jaroslav Krizek, Mar 25 2011

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A061602, A066459, A093325.

Cf. A066459, A000142, A197181.

Programs

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

Mathematica

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