A178538 Records in A169819.

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, 54, 58, 59, 66, 68, 71, 73, 76, 80, 88, 93, 96, 103, 104, 105, 106, 112, 113, 117, 126, 129, 130, 143, 147, 151, 161, 171, 176, 187, 192, 200, 205, 216

Offset

1,2

Links

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

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}]; A178538 =First/@s

Crossrefs

Cf. A169819, A177834, A178539.

Sequence in context: A344974 A371022 A107062 * A332166 A017904 A368902

Adjacent sequences: A178535 A178536 A178537 * A178539 A178540 A178541

Keyword

base,nonn

Author

Zak Seidov, May 29 2010

Status

approved