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,2

Links

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

Example

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

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 *)

Crossrefs

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

Sequence in context: A104791 A338950 A204873 * A166000 A252500 A252497

Adjacent sequences: A135125 A135126 A135127 * A135129 A135130 A135131

Keyword

nonn,base

Author

Hieronymus Fischer, Dec 31 2007

Status

approved