|
| |
|
|
A052018
|
|
Numbers n with property that the sum of the digits of n is substring of n.
|
|
13
|
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 109, 119, 129, 139, 149, 159, 169, 179, 189, 199, 200, 300, 400, 500, 600, 700, 800, 900, 910, 911, 912, 913, 914, 915, 916, 917, 918, 919, 1000, 1009, 1018, 1027, 1036, 1045, 1054, 1063
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
R. Zumkeller, Table of n, a(n) for n = 1..10000 [From Reinhard Zumkeller, Aug 15 2010]
|
|
|
MATHEMATICA
|
sdssQ[n_]:=Module[{idn=IntegerDigits[n], s, len}, s=Total[idn]; len= IntegerLength[ s]; MemberQ[Partition[idn, len, 1], IntegerDigits[s]]]; Join[{0}, Select[Range[1100], sdssQ]] (* Harvey P. Dale, Jan 02 2013 *)
|
|
|
CROSSREFS
|
Cf. A052019, A052020, A052021, A052022, A007953, A005349, A028834.
Cf. A175688. [From Reinhard Zumkeller, Aug 15 2010]
Sequence in context: A107085 A212499 A032945 * A202272 A180480 A080459
Adjacent sequences: A052015 A052016 A052017 * A052019 A052020 A052021
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Patrick De Geest, Nov 15 1999.
|
|
|
STATUS
|
approved
|
| |
|
|
