A180468 - OEIS

%I #6 Dec 03 2018 19:05:28

%S 0,1,2,3,4,5,6,7,8,9,10,12,18,20,24,48,50,100,102,108,110,111,112,114,

%T 117,120,130,132,135,155,164,200,204,208,221,224,240,243,336,414,476,

%U 500,512,762

%N Numbers n such that n/k is an integer. n=(x_1 x_2 ... x_r) where x_i are digits of n, k = x_1^r + x_2^(r-1) + ... + x_r^1

%C n=48, k=4^2+8^1=24, n/k=2 so 48 belongs to the sequence. For binary numbers we have the sequence of n-s such that n/(1-s counting sequence) is an integer, this is A049445.

%H Harvey P. Dale, <a href="/A180468/b180468.txt">Table of n, a(n) for n = 1..1000</a>

%t Join[{0},Select[Range[800],Divisible[#,Total[IntegerDigits[#]^ Reverse[ Range[ IntegerLength[ #]]]]]&]] (* _Harvey P. Dale_, Dec 03 2018 *)

%Y Cf. A049445

%K easy,nonn,base

%O 1,3

%A _Ctibor O. Zizka_, Sep 06 2010