|
|
A178539
|
|
Where records occur in A169819.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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}]],
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|