A178539 Where records occur in A169819.

1, 2, 4, 6, 10, 12, 16, 18, 30, 48, 56, 60, 108, 120, 144, 180, 288, 396, 504, 720, 840, 1008, 1176, 1260, 1440, 1680, 1980, 2520, 3360, 3780, 6720, 7560, 9240, 10080, 11088, 11760, 13608, 15120, 15840, 19800, 22680, 25200, 26460, 27720, 31680

Offset

1,2

Comments

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

Links

Table of n, a(n) for n=1..45.

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

Crossrefs

Cf. A169819, A177834, A178538.

Sequence in context: A127965 A117891 A262935 * A072752 A036634 A005942

Adjacent sequences: A178536 A178537 A178538 * A178540 A178541 A178542

Keyword

base,nonn

Author

Zak Seidov, May 29 2010

Status

approved