login
A260055
Composites whose prime factorization in base 12 is an anagram of the number in base 12.
11
169, 185, 219, 2165, 2402, 3981, 4205, 10031, 21349, 21907, 22049, 24199, 26919, 27746, 28802, 29767, 29919, 31107, 46749, 71375, 251521, 252257, 252361, 259565, 275237, 280587, 292159, 293011, 301163, 303161, 305765
OFFSET
1,1
LINKS
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
KEYWORD
base,easy,nonn
AUTHOR
Stephen Tucker, Jul 14 2015
STATUS
approved