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,2

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

Formula

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

Mathematica

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

Crossrefs

Cf. A011540, A049101, A050720.

Sequence in context: A175396 A338829 A107085 * A244890 A032945 A236402

Adjacent sequences: A212496 A212497 A212498 * A212500 A212501 A212502

Keyword

base,easy,nonn

Author

Arkadiusz Wesolowski, May 19 2012

Status

approved