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

Author

Reinhard Zumkeller, Mar 16 2007

Keywords

• nonn
• base

Comments

a(A034838(n)) = n.

Examples

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

Links

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

Programs

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 *)