|
| |
|
|
A055471
|
|
Divisible by the product of its nonzero digits.
|
|
1
| |
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 15, 20, 24, 30, 36, 40, 50, 60, 70, 80, 90, 100, 101, 102, 104, 105, 110, 111, 112, 115, 120, 128, 132, 135, 140, 144, 150, 175, 200, 208, 210, 212, 216, 220, 224, 240, 250, 300, 306, 312, 315, 360, 384, 400, 432, 480, 500
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| Select[Range[5000], IntegerQ[ #/(Times @@ Select[IntegerDigits[ # ], # > 0 &])] &] (from Alonso Delarte (alonso.delarte(AT)gmail.com), Aug 04 2004)
|
|
|
CROSSREFS
| Superset of A007602.
Sequence in context: A083970 A071204 A002796 * A066254 A167904 A004841
Adjacent sequences: A055468 A055469 A055470 * A055472 A055473 A055474
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 05 2000
|
|
|
EXTENSIONS
| Corrected by Patrick De Geest (pdg(AT)worldofnumbers.com), 08/2000.
|
| |
|
|
