OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..217
EXAMPLE
156 is a term because omega(156) = omega(165) = omega (516) = omega(561) = omega(615) = omega(651) = 3, where omega(n) is the number of distinct prime divisors of n.
MATHEMATICA
Select[Range[10000], CountDistinct[PrimeNu[FromDigits /@ Permutations[IntegerDigits[#]]]]==1&&CountDistinct[IntegerDigits[#]]>1&]
PROG
(Python)
from sympy import factorint
from itertools import permutations
def ok(n):
s, pf = str(n), len(factorint(n))
if len(set(s)) == 1: return False
return all(pf==len(factorint(int("".join(p)))) for p in permutations(s))
print([k for k in range(500) if ok(k)]) # Michael S. Branicky, Jun 05 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Metin Sariyar, Jun 05 2022
STATUS
approved