login
Numbers that are repdigits with length > 2 in more than one base.
13

%I #62 Feb 11 2020 00:40:05

%S 31,63,255,273,364,511,546,728,777,931,1023,1365,1464,2730,3280,3549,

%T 3783,3906,4095,4557,6560,7566,7812,8191,9114,9331,9841,10507,11349,

%U 11718,13671,14043,14763,15132,15624,16383,18291,18662,18915,19608,19682,21845,22351,22698

%N Numbers that are repdigits with length > 2 in more than one base.

%C Definition requires "length > 2" because all numbers n > 2 are trivially represented as "11" in base n-1.

%C From _Daniel Forgues_, Nov 13 2009: (Start)

%C 0 = 00 = 000 = 0000 = 00000 = 000000 = 0000000 = 00000000 = ... in any positional number representation (includes fixed base radix b > 1, mixed base radix with each b_i > 1, i >= 0, such as factorial and primorial based radix...)

%C The sequence definition should be read as:

%C Nonnegative integers that are repdigits with length > 2 in more than one fixed base radix b > 1.

%C Considering all fixed and mixed base radix would include many more nonnegative integers (but not the integers 1 to 6) which are repdigits with length > 2 in more than one radix. (End)

%C From _Bernard Schott_, Aug 08 2017: (Start)

%C In this sequence data, the first number which is repdigit, with length > 2, in more than two bases is the twelfth Mersenne number 4095 with four Brazilian representations: M_12 = 4095 = 111111111111_2 = 333333_4 = 7777_8 = (15 15 15)_16.

%C The Mersenne number M_15 is the first number which is repdigit in exactly three bases with M_15 = 32767 = 111111111111111_2 = 77777_8 = (31 31 31)_32.

%C Only two numbers are repunits in more than one base: the Mersenne primes 31 and 8191 (Examples and A119598).

%C Some numbers are once repunit and once multiple of a Brazilian prime such that Mersenne number M_9 = 511 = 7 * 73 = 111111111_2 = 7 * 111_8 = 777_8.

%C Some numbers are once repunit and once multiple of a composite repunit such that Mersenne number M_6 = 63 = 3 * 21 = 111111_2 = 3 * 111_4 = 333_4.

%C Some numbers are repdigits in two different bases: 546 = 666_9 = 222_16. (End)

%H Michel Marcus, <a href="/A167783/b167783.txt">Table of n, a(n) for n = 1..158</a>

%H Wolfram Demonstrations Project, <a href="http://demonstrations.wolfram.com/MixedRadixNumberRepresentations/">Mixed Radix Number Representations</a>

%e 31 is in the list because 31 = 11111_2 = 111_5;

%e 8191 = 1111111111111_2 = 111_90;

%e 10507 = {19 19 19}_23 = 111_102.

%t Select[Range[550], Function[n, 1 < Count[Range[2, n - 1], _?(And[Length@ DeleteCases[#, 0] == 1, Union[#][[2]] > 2] &@ DigitCount[n, #] &)]]] (* _Michael De Vlieger_, Aug 09 2017 *)

%o (PARI) isok(n)=my(nb = 0); for (b=2, n-1, d = digits(n, b); if ((#d > 2) && (#Set(d) == 1), nb++); if (nb > 1, return (1));); return (0); \\ _Michel Marcus_, Aug 08 2017

%Y Cf. A167782 (numbers that are repdigits with length > 2 in some base).

%Y Cf. A010785 (repdigits (base 10)).

%Y Cf. A053696 (numbers which are repunits in some base).

%Y Cf. A158235 (numbers n whose square is a repdigit in some base < n).

%Y Cf. A290869 (Numbers that are repdigits with length > 2 in more than two bases).

%K nonn,base

%O 1,1

%A _Andrew Weimholt_, Nov 12 2009

%E a(41)-a(44) from _Bernard Schott_, Aug 08 2017