%I #8 Oct 25 2020 16:05:37
%S 1,2,1388,2170,2171,2830,2831,10390,10391,12792,12793,12794,17110,
%T 17111,17290,17291,36312,36313,36314,37814,41532,41533,41534,50892,
%U 50893,50894,52216,52217,52395,56652,56653,56654,95354,96432,96433,96434
%N Numbers such that the digital sums in bases 3, 4, 5, 6 and 7 all are equal.
%H G. C. Greubel, <a href="/A135129/b135129.txt">Table of n, a(n) for n = 1..1700</a>
%e a(3)=1388, since ds_3(1388)=ds_4(1388)=ds_5(1388)=ds_6(1388)=ds_7(1388), where ds_x=digital sum base x.
%t Select[Range[30000], Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 4]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 6]] == Total[IntegerDigits[#, 7]] &] (* _G. C. Greubel_, Sep 28 2016 *)
%t Select[Range[100000],Length[Union[Table[Total[IntegerDigits[#,b]],{b,3,7}]]]==1&] (* _Harvey P. Dale_, Oct 25 2020 *)
%Y Cf. A007953, A054899, A131451, A133620, A133900, A134599, A135100, A135110, A135120, A037308.
%K nonn,base
%O 1,2
%A _Hieronymus Fischer_, Dec 31 2007
|