This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A135129 #8 Oct 25 2020 16:05:37 %S A135129 1,2,1388,2170,2171,2830,2831,10390,10391,12792,12793,12794,17110, %T A135129 17111,17290,17291,36312,36313,36314,37814,41532,41533,41534,50892, %U A135129 50893,50894,52216,52217,52395,56652,56653,56654,95354,96432,96433,96434 %N A135129 Numbers such that the digital sums in bases 3, 4, 5, 6 and 7 all are equal. %H A135129 G. C. Greubel, <a href="/A135129/b135129.txt">Table of n, a(n) for n = 1..1700</a> %e A135129 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. %t A135129 Select[Range[30000], Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 4]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 6]] == Total[IntegerDigits[#, 7]] &] (* _G. C. Greubel_, Sep 28 2016 *) %t A135129 Select[Range[100000],Length[Union[Table[Total[IntegerDigits[#,b]],{b,3,7}]]]==1&] (* _Harvey P. Dale_, Oct 25 2020 *) %Y A135129 Cf. A007953, A054899, A131451, A133620, A133900, A134599, A135100, A135110, A135120, A037308. %K A135129 nonn,base %O A135129 1,2 %A A135129 _Hieronymus Fischer_, Dec 31 2007