|
|
A051004
|
|
Numbers divisible both by their individual digits and by the sum of their digits.
|
|
4
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 24, 36, 48, 111, 112, 126, 132, 135, 144, 162, 216, 222, 224, 264, 288, 312, 315, 324, 333, 336, 396, 432, 444, 448, 555, 612, 624, 648, 666, 735, 777, 864, 888, 936, 999, 1116, 1122, 1128, 1164, 1212, 1224, 1236, 1296, 1332
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
No zero digits permitted. [_Harvey P. Dale_, Dec 18 2011]
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Digit
|
|
MATHEMATICA
|
ddQ[n_]:=Module[{idn=IntegerDigits[n]}, !MemberQ[idn, 0] && Divisible[ n, Total[idn]]&&And@@Divisible[n, idn]]; Select[Range[1400], ddQ] (* _Harvey P. Dale_, Dec 18 2011 *)
|
|
PROG
|
(Haskell)
a051004 n = a051004_list !! (n-1)
a051004_list = [x | x <- a005349_list,
x == head (dropWhile (< x) a034838_list)]
-- _Reinhard Zumkeller_, Mar 03 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice,base
|
|
AUTHOR
|
_Eric W. Weisstein_
|
|
EXTENSIONS
|
Offset corrected by _Reinhard Zumkeller_, Mar 03 2012
|
|
STATUS
|
approved
|
|
|
|