OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1700
EXAMPLE
a(3)=1388, since ds_3(1388)=ds_4(1388)=ds_5(1388)=ds_6(1388)=ds_7(1388), where ds_x=digital sum base x.
MATHEMATICA
Select[Range[30000], Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 4]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 6]] == Total[IntegerDigits[#, 7]] &] (* G. C. Greubel, Sep 28 2016 *)
Select[Range[100000], Length[Union[Table[Total[IntegerDigits[#, b]], {b, 3, 7}]]]==1&] (* Harvey P. Dale, Oct 25 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Hieronymus Fischer, Dec 31 2007
STATUS
approved