DouKaku? 513 沢渡みかげ: FromDigits, IntegerD...(倍数になる13進数)

Comment detail

FromDigits, IntegerDigits で任意の進数で変換ができました．

n = 10;
While[FromDigits[IntegerDigits[n], 13] != n*2, n++];

Print[n];
Print[FromDigits[IntegerDigits[n], 13]];