|
%I #17 Sep 18 2019 21:14:38
%S 0,1,882,883,1386,1387,2502,2503,3453,7555,7652,7665,7931,9751,10101,
%T 12250,12251,16893,17010,17011,17515,17550,17551,18285,20301,22050,
%U 22051,24406,24407,25053,27503,31654,40930,40931,41951,50878,50879
%N Numbers such that the digital sums in bases 2, 3, 5 and 7 all are equal.
%H Stanislav Sykora, <a href="/A135127/b135127.txt">Table of n, a(n) for n = 1..10000</a>
%e a(2)=882, since ds_2(882 )=ds_3(882 )=ds_5(882 )=ds_7(882 )=6, where ds_x=digital sum base x.
%t Select[Range[0, 32000], Total[IntegerDigits[#, 2]] == Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 7]] &] (* _G. C. Greubel_, Sep 27 2016 *)
%t Select[Range[0,51000],Length[Union[Total/@IntegerDigits[#,{2,3,5,7}]]] == 1&] (* _Harvey P. Dale_, Sep 18 2019 *)
%Y Cf. A007953, A054899, A131451, A133620, A133900, A134599, A135100, A135110, A135120, A037308, A212222.
%K nonn,base
%O 1,3
%A _Hieronymus Fischer_, Dec 31 2007
%E Added 0, _Stanislav Sykora_, May 06 2012
|
