A135129 Numbers such that the digital sums in bases 3, 4, 5, 6 and 7 all are equal.

1, 2, 1388, 2170, 2171, 2830, 2831, 10390, 10391, 12792, 12793, 12794, 17110, 17111, 17290, 17291, 36312, 36313, 36314, 37814, 41532, 41533, 41534, 50892, 50893, 50894, 52216, 52217, 52395, 56652, 56653, 56654, 95354, 96432, 96433, 96434

Offset: 1

Author

Hieronymus Fischer, Dec 31 2007

Keywords

• nonn
• base

Examples

			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.
		

Links

• G. C. Greubel, Table of n, a(n) for n = 1..1700

Crossrefs

Cf. A007953, A054899, A131451, A133620, A133900, A134599, A135100, A135110, A135120, A037308.

Programs

Mathematica

Select[Range[30000], Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 4]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 6]] == Total[IntegerDigits[#, 7]] &] (* G. C. Greubel, Sep 28 2016 *)
Select[Range[100000],Length[Union[Table[Total[IntegerDigits[#,b]],{b,3,7}]]]==1&] (* Harvey P. Dale, Oct 25 2020 *)