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

0, 1, 882, 883, 1386, 1387, 2502, 2503, 3453, 7555, 7652, 7665, 7931, 9751, 10101, 12250, 12251, 16893, 17010, 17011, 17515, 17550, 17551, 18285, 20301, 22050, 22051, 24406, 24407, 25053, 27503, 31654, 40930, 40931, 41951, 50878, 50879

Offset: 1

Author

Hieronymus Fischer, Dec 31 2007

Keywords

• nonn
• base

Examples

			a(2)=882, since ds_2(882 )=ds_3(882 )=ds_5(882 )=ds_7(882 )=6, where ds_x=digital sum base x.
		

Links

• Stanislav Sykora, Table of n, a(n) for n = 1..10000

Crossrefs

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

Programs

Mathematica

Select[Range[0, 32000], Total[IntegerDigits[#, 2]] == Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 7]] &] (* G. C. Greubel, Sep 27 2016 *)
Select[Range[0,51000],Length[Union[Total/@IntegerDigits[#,{2,3,5,7}]]] == 1&] (* Harvey P. Dale, Sep 18 2019 *)

Extensions

Added 0, Stanislav Sykora, May 06 2012