|
%I #6 Sep 28 2016 05:32:04
%S 1,1300,1301,5010,5011,7102,7103,10050,10051,10235,11135,12250,12251,
%T 14015,16102,16103,20060,20061,20206,20207,23230,23231,32012,32013,
%U 32302,32303,32410,32411,44000,44001,45010,45011,50012,50013,50300
%N Numbers such that the digital sum base 2 and the digital sum base 5 and the digital sum base 10 all are equal.
%H G. C. Greubel, <a href="/A135125/b135125.txt">Table of n, a(n) for n = 1..989</a>
%e a(2)=1300, since ds_2(1300)=ds_5(1300)=ds_10(1300), where ds_x=digital sum base x.
%t Select[Range[10000], Total[IntegerDigits[#, 2]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 10]] &] (* _G. C. Greubel_, Sep 27 2016 *)
%Y Cf. A007953, A054899, A131451, A133620, A133900, A134599, A135100, A135110, A135120, A037308.
%K nonn,base
%O 1,2
%A _Hieronymus Fischer_, Dec 31 2007
|
