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