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
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