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
KEYWORD
nonn,base
AUTHOR
Hieronymus Fischer, Dec 31 2007
STATUS
approved