[go: up one dir, main page]

login
A135128
Numbers such that the digital sums in bases 2, 3, 5 and 10 all are equal.
1
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
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 *)
KEYWORD
nonn,base
AUTHOR
Hieronymus Fischer, Dec 31 2007
STATUS
approved