|
| |
|
|
A090144
|
|
Numbers n which when converted to some base between 2 and 9 yield a result with the same digits as n in a different order.
|
|
1
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 13, 23, 46, 158, 227, 265, 316, 445, 1030, 1045, 1135, 1234, 1236, 1273, 1366, 1380, 1431, 1454, 1653, 2027, 2060, 2116, 2154, 2315, 2534, 3160, 3161, 3162, 3163, 3164, 3165, 3166, 3167, 3226, 5270, 5567, 5637, 5783, 10144, 10235
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
EXAMPLE
|
a(12)=158 because 158 in base 9 is 185, a permutation of the digits of 158. a(19)=1135 because 1135 in base 6 is 5131. a(77)=30576 because 30576 in base 8 is 73560.
|
|
|
MAPLE
|
"replace all /n in the code below with backslash-n."; digListToNum := proc(L) local i, result; result := 0; for i from nops(L) to 1 by -1 do; result := result*10+L[i]; od; result; end; basePerm := proc(n) local b, nL, nbL, ok; nL := sort(convert(n, base, 10)); ok := false; for b from 2 to 9 do; nbL := sort(convert(n, base, b)); if nL=nbL then printf("%10d in base %2d = %10d./n", n, b, digListToNum(convert(n, base, b))); ok := true; fi; od; ok; end; basePermList := proc (endAt) local i, L; L := []; for i from 1 to endAt do; if basePerm(i) then L := [op(L), i] fi; od; L; end; basePermList(100000);
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Chuck Seggelin (barkeep(AT)plastereddragon.com), Nov 22 2003
|
|
|
STATUS
|
approved
|
| |
|
|
