This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A178538 #2 Mar 30 2012 17:26:35
%S A178538 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 A178538 54,58,59,66,68,71,73,76,80,88,93,96,103,104,105,106,112,113,117,126,
%U A178538 129,130,143,147,151,161,171,176,187,192,200,205,216
%N A178538 Records in A169819.
%t A178538 mx=0;s={};Do[id=IntegerDigits[n];FLA=Flatten[Table[Partition[id,k,1],
%t A178538 {k,Length[id]}],1];fd=Union[FromDigits/@FLA];
%t A178538 dv=Length[Union[Flatten[Divisors/@fd]]];If[dv>mx,mx=dv;AppendTo[s2,{mx,n}]],
%t A178538 {n,200000}]; A178538 =First/@s
%Y A178538 Cf. A169819, A177834, A178539.
%K A178538 base,nonn
%O A178538 1,2
%A A178538 _Zak Seidov_, May 29 2010