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

0, 1, 882, 883, 1386, 1387, 2502, 2503, 3453, 7555, 7652, 7665, 7931, 9751, 10101, 12250, 12251, 16893, 17010, 17011, 17515, 17550, 17551, 18285, 20301, 22050, 22051, 24406, 24407, 25053, 27503, 31654, 40930, 40931, 41951, 50878, 50879

Offset

1,3

Links

Stanislav Sykora, Table of n, a(n) for n = 1..10000

Example

a(2)=882, since ds_2(882 )=ds_3(882 )=ds_5(882 )=ds_7(882 )=6, where ds_x=digital sum base x.

Mathematica

Select[Range[0, 32000], Total[IntegerDigits[#, 2]] == Total[IntegerDigits[#, 3]] == Total[IntegerDigits[#, 5]] == Total[IntegerDigits[#, 7]] &] (* G. C. Greubel, Sep 27 2016 *)
Select[Range[0, 51000], Length[Union[Total/@IntegerDigits[#, {2, 3, 5, 7}]]] == 1&] (* Harvey P. Dale, Sep 18 2019 *)

Crossrefs

Cf. A007953, A054899, A131451, A133620, A133900, A134599, A135100, A135110, A135120, A037308, A212222.

Sequence in context: A265181 A137064 A092675 * A338538 A230909 A035758

Adjacent sequences: A135124 A135125 A135126 * A135128 A135129 A135130

Keyword

nonn,base

Author

Hieronymus Fischer, Dec 31 2007

Extensions

Added 0, Stanislav Sykora, May 06 2012

Status

approved