OFFSET
1,1
COMMENTS
Subset of A052224.
Finite sequence. Highest member is 1111111111.
Contribution from Zak Seidov, Aug 06 2010, as corrected by D. S. McNeil: There are exactly 511 terms.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..511
EXAMPLE
19 is an element of the list because 1+9 = 10.
109 is not an element because it contains a 0.
MAPLE
with(combinat):
sort(select(y->y<>10, map(x->parse(cat(x[])), map(p->permute(p)[], partition(10)))))[]; # Alois P. Heinz, Sep 24 2013
MATHEMATICA
Reap[For[n=1; k=1, n <= 2*10^9, n++, id = IntegerDigits[n]; If[Total[id] == 10 && FreeQ[id, 0], Print["a(", k, ") = ", n]; Sow[n]; k++]]][[2, 1]] (* Jean-François Alcover, Jan 08 2016 *)
sd10Q[n_]:=Module[{idn=IntegerDigits[n]}, FreeQ[idn, 0]&&Total[idn]==10]; Select[Range[1200], sd10Q] (* Harvey P. Dale, Oct 17 2016 *)
CROSSREFS
KEYWORD
base,easy,fini,full,nonn
AUTHOR
Dominick Cancilla, Aug 03 2010
STATUS
approved