cp's OEIS Frontend

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.

A135127 Numbers such that the digital sums in bases 2, 3, 5 and 7 all are equal.

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