OFFSET
1,1
EXAMPLE
1872 is in the sequence because the divisors of 1872 are {1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18, 24, 26, 36, 39, 48, 52, 72, 78, 104, 117, 144, 156, 208, 234, 312, 468, 624, 936, 1872} and 72 is the 18th divisor of 1872.
MAPLE
with(numtheory):for n from 1000 to 500000 do:x:=convert(n, base, 10):n1:=nops(x):y:=divisors(n):n2:=nops(y):a:=x[n1]*10+x[n1-1]: s:=sum('x[i]*10^(i-1) ', 'i'=1..n1-2):if n2>a and y[a]=s then printf(`%d, `, n):else fi:od:
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Dec 23 2013
STATUS
approved