OFFSET
1,2
MATHEMATICA
mx=0; s={}; Do[id=IntegerDigits[n]; FLA=Flatten[Table[Partition[id, k, 1],
{k, Length[id]}], 1]; fd=Union[FromDigits/@FLA];
dv=Length[Union[Flatten[Divisors/@fd]]]; If[dv>mx, mx=dv; AppendTo[s2, {mx, n}]],
{n, 200000}]; A178538 =First/@s
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 29 2010
STATUS
approved