A135128 Numbers such that the digital sums in bases 2, 3, 5 and 10 all are equal.

1, 12250, 12251, 23230, 23231, 32410, 32411, 45010, 45011, 51130, 51131, 52030, 52031, 54010, 54011, 100053, 100090, 100091, 100305, 102250, 102251, 107002, 107003, 110134, 110170, 110171, 110350, 110351, 110460, 110461, 113050, 113051

Offset: 1

Author

Hieronymus Fischer, Dec 31 2007

Keywords

• nonn
• base

Examples

			a(2)=12250 since ds_2(12250 )=ds_3(12250 )=ds_5(12250 )=ds_10(12250 )=10, where ds_x=digital sum base x.
		

Links

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

Crossrefs

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

Programs

Mathematica

Select[Range[32000], Total[IntegerDigits[#, 2]] == Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 10]] &] (* G. C. Greubel, Sep 28 2016 *)
Select[Range[120000],Length[Union[Total/@IntegerDigits[#,{2,3,5,10}]]]==1&] (* Harvey P. Dale, Mar 30 2024 *)