A212499 Numbers k that divide the product of digits of k.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 301

Offset: 1

Author

Arkadiusz Wesolowski, May 19 2012

Keywords

• base
• easy
• nonn

Comments

Every integer except zero divides zero.

A050720(2*n) is the number of terms of length n for n >= 2.

Links

• Arkadiusz Wesolowski, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A011540, A049101, A050720.

Programs

Mathematica

Union[Range[9], Select[Range[10, 301], DigitCount[#, 10, 0] > 0 &]]
Select[Range[301], Divisible[Product[i, {i, IntegerDigits[#]}], #] &]

Formula

a(n+9) = A011540(n+1).