login
Where records occur in A169819.
2

%I #5 Oct 19 2013 04:59:52

%S 1,2,4,6,10,12,16,18,30,48,56,60,108,120,144,180,288,396,504,720,840,

%T 1008,1176,1260,1440,1680,1980,2520,3360,3780,6720,7560,9240,10080,

%U 11088,11760,13608,15120,15840,19800,22680,25200,26460,27720,31680

%N Where records occur in A169819.

%C Next terms corresponding to terms in A178538: 32760,36960,49504,55440,64680,95040,98280,110880,123760,128520, 159840,163800,191520,196560.

%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}]; A178539 = Last/@s

%Y Cf. A169819, A177834, A178538.

%K base,nonn

%O 1,2

%A _Zak Seidov_, May 29 2010