|
EXAMPLE
|
a(5)=14745 because 14745 when expressed in successive bases starting at 2 will produce its first non-decimal digit at base 19. Like so: 11100110011001, 202020010, 3212121, 432440, 152133, 60663, 34631, 22203, 14745, 10095, 8649, 6933, 5533, 4580, 3999, 3006, 2993. In base 19, 14745 is 22G1.
|
|
MAPLE
|
S := []; for n from 1 to 15000 do; if 1>0 then; ct := 0; ok := true; b := 2; if (n>9) then; while ok=true do; L := convert(n, base, b); for e in L while ok=true do; if (e > 9) then ok:=false; fi; od; if ok=true then; ct := ct + 1; b := b + 1; fi; od; fi; if ct=17 then S := [op(S), n]; fi; fi; od; S;
|