%I
%S 27,33,64,82,97,100,103,104,107,118,122,124,125,128,134,135,152,159,
%T 162,177,190,193,195,198,205,208,212,214,232,233,250,277,280,298,334,
%U 343,345,349,352,358,362,363,364,370,380,382,384,403,427,442
%N Inconsummate numbers in base 6: no number is this multiple of the sum of its digits (in base 6).
%H Vincenzo Librandi, <a href="/A058902/b058902.txt">Table of n, a(n) for n = 1..7100</a>
%H David Radcliffe, <a href="http://gotmath.com/inconsummate.html">Inconsummate Numbers</a> [broken link]
%p For Maple code see A058906.
%t base=6; Do[k=n; While[Apply[Plus,IntegerDigits[k, base]] n!=k&&k<250 n, k+=n]; If[k==250 n, Print[n]], {n, 1, 10^3}] (* _Vincenzo Librandi_, Jan 30 2017 *)
%Y Cf. A003635, A052491, A058898A058907.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Jan 09 2001
