A178538 Records in A169819.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 16, 17, 20, 23, 25, 26, 29, 32, 33, 37, 38, 43, 47, 49, 54, 58, 59, 66, 68, 71, 73, 76, 80, 88, 93, 96, 103, 104, 105, 106, 112, 113, 117, 126, 129, 130, 143, 147, 151, 161, 171, 176, 187, 192, 200, 205, 216

Offset: 1

Author

Zak Seidov, May 29 2010

Keywords

• base
• nonn

Crossrefs

Cf. A169819, A177834, A178539.

Programs

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