OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
EXAMPLE
55868 is a term because, among its divisors (which are 1, 2, 4, 13967, 27934, 55868), each digit from 1 through 9 occurs exactly twice.
MATHEMATICA
ld9Q[n_]:=Module[{d=DeleteCases[Sort[Flatten[IntegerDigits/@Divisors[ n]]], 0]}, Length[ Intersection[ d, Range[ 9]]] == 9&&Length[Union[ Length/@Split[ d]]]==1]; Select[ Range[ 235*10^5], ld9Q] (* Harvey P. Dale, Dec 20 2022 *)
PROG
(Python)
from sympy import divisors
from collections import Counter
def ok(n):
c = Counter()
for d in divisors(n, generator=True): c.update(str(d))
return len(set([c[i] for i in "123456789"])) == 1
print([k for k in range(1, 60000) if ok(k)]) # Michael S. Branicky, Nov 13 2022
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
EXTENSIONS
More terms from Sascha Kurz, Oct 18 2001
a(26) and beyond from Michael S. Branicky, Nov 13 2022
STATUS
approved