login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A179932
Number of distinct positive integers that can be formed with the decimal digits of n.
0
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, 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, 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
OFFSET
1,10
EXAMPLE
a(1) = 1 because there is only one number that can be formed with the digits in 1.
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).
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A263991 A065285 A302437 * A267649 A071805 A063511
KEYWORD
nonn,base
AUTHOR
Dominick Cancilla, Aug 02 2010
STATUS
approved