OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
169 = 13^2. In base 12, 121 = 11^2.
PROG
(PARI) isok(n, b) = {f = factor(n); v = []; for (i=1, #f~, v = concat(v, digits(f[i, 1], b)); if (f[i, 2]!= 1, v = concat(v, digits(f[i, 2], b))); ); vecsort(v) == vecsort(digits(n, b)); }
lista(nn, b=12) = forcomposite(n=1, nn, if (isok(n, b), print1(n, ", "))); \\ Michel Marcus, Jul 14 2015
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Stephen Tucker, Jul 14 2015
STATUS
approved
