OFFSET
1,6
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..5000
EXAMPLE
Let n=103. We have the following numbers obtained by permutations of its digits: 103, 130, 013, 031, 301, 310. The primes dividing at least one such numbers are 2, 5, 7, 13, 31, 43, 103. Thus a(103) = 7.
MAPLE
with(numtheory): with(combinat):
a:= n-> nops({map(x->factorset(parse(cat(x[])))[], permute(convert(n, base, 10)))[]}): seq(a(n), n=1..120); # Alois P. Heinz, Mar 13 2012
CROSSREFS
KEYWORD
AUTHOR
Vladimir Shevelev, Mar 13 2012
STATUS
approved