|
|
A290018
|
|
Numbers with exactly five Brazilian representations: bases 1 < b_1 < b_2 < b_3 < b_4 < b_5 < n-1 such that n is a repdigit in base b_i.
|
|
5
|
|
|
60, 80, 84, 96, 108, 126, 140, 150, 156, 160, 198, 200, 204, 220, 224, 234, 255, 260, 273, 276, 294, 308, 315, 340, 342, 348, 350, 352, 372, 392, 414, 416, 460, 476, 486, 490, 492, 495, 500, 516, 522, 525, 544, 550, 558, 564, 572, 580, 608, 620, 636, 644, 675, 693, 708, 726, 735, 736
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
These numbers could be called 5-Brazilian numbers.
All these numbers are composite with 8 to 13 divisors.
The smallest term is 60 and as such is a highly Brazilian number that belongs to A329383.
|
|
LINKS
|
|
|
EXAMPLE
|
60 = 66_9 = 55_11 = 44_14 = 33_19 = 22_29 and tau(60) = 12.
80 = 2222_3 = 22_39 = 44_19 = 55_15 = 88_9 and tau(80) = 10.
255 = 11111111_2 = 3333_4 = 33_84 = 55_50 = (15 15)_16 and tau(255) = 8.
4096 = (32 32)_127 = (16 16)_255 = 88_511 = 44_1023 = 22_2047 and tau(4096) = 13.
|
|
MATHEMATICA
|
Flatten@ Position[#, 5] &@ Table[Count[Range[2, n - 2], _?(And[Length@ # != 1, Length@ Union@ # == 1] &@ IntegerDigits[n, #] &)], {n, 750}] (* Michael De Vlieger, Aug 09 2017 *)
|
|
PROG
|
(PARI) is(n)=my(d, ct); for(b=2, n-2, d=digits(n, b); for(i=2, #d, if(d[i]!=d[i-1], next(2))); if(ct++>5, return(0))); ct==5 \\ Charles R Greathouse IV, Aug 09 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|