This number can be expressed:
- by 4 distinct digits in bases 4,8,10;
- by 5 distinct digits in bases 6,7,11,15 and
- by 6 distinct digits in base 16.
There is no data about other bases.
Find the number.
(In reply to
re: More than 3000, less than 8, computer solutions by Ady TZIDON)
Adding the bolded code below
v16$ = base$(v, 16)
If dnumct(v16$) = 6 Then
good = 1
For i = 1 To Len(v16$)
ix = InStr("0123456789abcdef", Mid(v16$, i, 1))
Select Case i
Case 1
pix = ix
Case 2
diff = ix - pix
pix = ix
Case Else
If ix - pix <> diff Then good = 0: Exit For
pix = ix
End Select
Next i
v10$ = base$(v, 10)
If dnumct(v10$) = 4 And good = 1 Then
reduces the solutions to 1:
4 8 10 6 7 11 15 16
121110030201 31241441 6636321 354123413 110256606 3822a6a 8b14b6 654321
|
|
Posted by Charlie
on 2015-01-09 08:29:13 |
re(2): More than 3000, less than 8, computer solutions
