%I #4 Nov 04 2019 17:33:50
%S 1,2,3,4,5,6,7,8,9,11,12,14,15,21,22,24,25,36,48,63,111,112,113,115,
%T 116,128,131,132,135,144,175,192,195,212,216,224,232,311,312,315,333,
%U 371,384,416,432,612,624,672,735,816,832,912,915
%N Numbers n such that r*n/k is an integer. n=(x_1 x_2 ... x_r) where x_i are digits of n, k = x_1 * x_2 * ... * x_r.
%C A007602 is a subsequence of this sequence.
%H Harvey P. Dale, <a href="/A180478/b180478.txt">Table of n, a(n) for n = 1..1000</a>
%e n=135, r=3, 3*135/1*3*5=27, n=135 belongs to the sequence.
%t Select[Range[1000],DigitCount[#,10,0]==0&&IntegerQ[(IntegerLength[#]#)/ Times@@ IntegerDigits[#]]&] (* _Harvey P. Dale_, Nov 04 2019 *)
%Y Cf. A007602
%K base,easy,nonn
%O 1,2
%A _Ctibor O. Zizka_, Sep 07 2010
|