A128635 Number of numbers not greater than n and divisible by all digits in decimal representation.

1, 2, 3, 4, 5, 6, 7, 8, 9, 9, 10, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, 14, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20

Offset

1,2

Comments

a(A034838(n)) = n.

Links

R. Zumkeller, Table of n, a(n) for n = 1..10000

Example

a(42) = #{1,2,3,4,5,6,7,8,9,11,12,15,22,24,33,36} = 16.

Mathematica

Accumulate[Table[If[DigitCount[n, 10, 0]==0&&Union[Mod[n, IntegerDigits[n]]] == {0}, 1, 0], {n, 80}]] (* Harvey P. Dale, Feb 21 2020 *)

Crossrefs

Sequence in context: A137180 A258632 A263283 * A353024 A100637 A081063

Adjacent sequences: A128632 A128633 A128634 * A128636 A128637 A128638

Keyword

nonn,base

Author

Reinhard Zumkeller, Mar 16 2007

Status

approved