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 A179932 #11 Sep 21 2016 17:43:24 %S A179932 1,1,1,1,1,1,1,1,1,2,2,4,4,4,4,4,4,4,4,2,4,2,4,4,4,4,4,4,4,2,4,4,2,4, %T A179932 4,4,4,4,4,2,4,4,4,2,4,4,4,4,4,2,4,4,4,4,2,4,4,4,4,2,4,4,4,4,4,2,4,4, %U A179932 4,2,4,4,4,4,4,4,2,4,4,2,4,4,4,4,4,4,4,2,4,2,4,4,4,4,4,4,4,4,2,3,5,10,10 %N A179932 Number of distinct positive integers that can be formed with the decimal digits of n. %e A179932 a(1) = 1 because there is only one number that can be formed with the digits in 1. %e A179932 a(10) = 2 because the digits in 10 can be used to make 0, 1, 01, and 10, but only 1 and 10 are both nonzero and unique (obviously, 01=1). %t A179932 Table[Length[Union[FromDigits/@Flatten[Permutations/@Flatten[ Table[ Partition[ IntegerDigits[t],n,1],{n,IntegerLength[t]}],1],1]/.(0-> Nothing)]], {t,110}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 21 2016 *) %K A179932 nonn,base %O A179932 1,10 %A A179932 _Dominick Cancilla_, Aug 02 2010