login
Records in A169819.
2

%I #2 Mar 30 2012 17:26:35

%S 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,

%T 54,58,59,66,68,71,73,76,80,88,93,96,103,104,105,106,112,113,117,126,

%U 129,130,143,147,151,161,171,176,187,192,200,205,216

%N Records in A169819.

%t mx=0;s={};Do[id=IntegerDigits[n];FLA=Flatten[Table[Partition[id,k,1],

%t {k,Length[id]}],1];fd=Union[FromDigits/@FLA];

%t dv=Length[Union[Flatten[Divisors/@fd]]];If[dv>mx,mx=dv;AppendTo[s2,{mx,n}]],

%t {n,200000}]; A178538 =First/@s

%Y Cf. A169819, A177834, A178539.

%K base,nonn

%O 1,2

%A _Zak Seidov_, May 29 2010