|
Search: id:A058906
|
|
|
| A058906 |
|
Inconsummate numbers in base 11: no number is this multiple of the sum of its digits (in base 11). |
|
+0
11
|
|
| 68, 70, 79, 80, 82, 92, 104, 200, 202, 212, 214, 224, 225, 248, 260, 314, 320, 332, 380, 392, 452, 458, 464, 490, 502, 508, 512, 513, 514, 518, 520, 524, 530, 562, 568, 574, 578, 579, 580, 584, 585, 590, 592, 595, 598, 599, 622, 628, 634, 635
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
David Radcliffe, Inconsummate Numbers
|
|
MAPLE
|
digitsum := proc (n, b) local i; add(i, i=convert(n, base, b)) end; b := 11:N := 43922; L := []: for n from 1 to N do k := digitsum(n, b): if (n mod k)=0 then L := [op(L), n/k] fi: od: M := []: for i from 1 to 1000 do if not(member(i, L)) then M := [op(M), i] fi od: lprint(M);
|
|
MATHEMATICA
|
base = 11; Do[k = n; While[ Apply[ Plus, IntegerDigits[k, base] ]*n != k && k < 250n, k += n]; If[k == 250n, Print[n] ], {n, 1, 10^3} ]
|
|
CROSSREFS
|
Cf. A003635, A052491, A058898-A058907.
Sequence in context: A043854 A043862 A043871 this_sequence A130694 A153831 A058980
Adjacent sequences: A058903 A058904 A058905 this_sequence A058907 A058908 A058909
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com), Jan 09 2001
|
|
|
Search completed in 0.002 seconds
|
