OFFSET
1,1
REFERENCES
David Wells, The Penguin Dictionary of Curious and Interesting Numbers. Penguin Books, NY, 1986, p. 171.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Richard K. Guy, The Second Strong Law of Small Numbers, Math. Mag, Vol. 63, No. 1 (1990), pp. 3-20.
EXAMPLE
216 is a term of the sequence because it is even and divisible by 9 (= 2+1+6).
MAPLE
s:=proc(n) local N:N:=convert(n, base, 10):sum(N[j], j=1..nops(N)) end:p:=proc(n) if floor(n/s(n))=n/s(n) then n else fi end: seq(p(2*n), n=1..161);
MATHEMATICA
Select[2*Range[200], Divisible[#, Total[IntegerDigits[#]]]&] (* Harvey P. Dale, May 08 2015 *)
PROG
(PARI) isok(n) = !(n%2) && !(n % sumdigits(n)); \\ Michel Marcus, Sep 19 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Emeric Deutsch, Dec 16 2004
EXTENSIONS
Edited by Charles R Greathouse IV, Aug 03 2010
STATUS
approved