

A188264


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


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 !! (n1)
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



