Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #6 Sep 28 2016 05:32:10
%S 1,2,188,668,908,1388,1628,2170,2171,2830,2831,3908,4330,4331,6490,
%T 6491,8650,8651,10390,10391,10629,12792,12793,12794,17110,17111,17290,
%U 17291,25930,25931,36312,36313,36314,37812,37813,37814,41532,41533,41534
%N Numbers such that the digital sums in bases 3, 4, 5 and 6 all are equal.
%H G. C. Greubel, <a href="/A135126/b135126.txt">Table of n, a(n) for n = 1..1400</a>
%e a(3)=188, since ds_3(188)=ds_4(188)=ds_5(188)=ds_6(188)=8, where ds_x=digital sum base x.
%t Select[Range[3000], Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 4]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 6]] &] (* _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