|
|
A179955
|
|
Numbers whose sum of digits is 10 and which contain no 0 digits.
|
|
2
|
|
|
19, 28, 37, 46, 55, 64, 73, 82, 91, 118, 127, 136, 145, 154, 163, 172, 181, 217, 226, 235, 244, 253, 262, 271, 316, 325, 334, 343, 352, 361, 415, 424, 433, 442, 451, 514, 523, 532, 541, 613, 622, 631, 712, 721, 811, 1117, 1126, 1135, 1144, 1153, 1162, 1171
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Finite sequence. Highest member is 1111111111.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|