|
Search: id:A034838
|
|
|
| A034838 |
|
Numbers n that are divisible by every digit of n. |
|
+0
13
|
|
| 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 15, 22, 24, 33, 36, 44, 48, 55, 66, 77, 88, 99, 111, 112, 115, 122, 124, 126, 128, 132, 135, 144, 155, 162, 168, 175, 184, 212, 216, 222, 224, 244, 248, 264, 288, 312, 315, 324, 333, 336, 366, 384, 396, 412, 424, 432, 444, 448
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Integers with at least one 0 digit are excluded.
A128635(a(n)) = n.
|
|
REFERENCES
|
Charles Ashbacher, Journal of Recreational Mathematics, Vol. 33 (2005), pp. 227. See problem number 2693.
|
|
LINKS
|
R. Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
EXAMPLE
|
36 is in the sequence because it is divisible by both 3 and 6.
48 is included because both 4 and 8 divide 48.
|
|
MAPLE
|
a:=proc(n) local nn, j, b, bb: nn:=convert(n, base, 10): for j from 1 to nops(nn) do b[j]:=n/nn[j] od: bb:=[seq(b[j], j=1..nops(nn))]: if map(floor, bb)=bb then n else fi end: 1, 2, 3, 4, 5, 6, 7, 8, 9, seq(seq(seq(a(100*m+10*n+k), k=1..9), n=1..9), m=0..6); (Deutsch)
|
|
MATHEMATICA
|
fQ[n_] := Block[{id = Union[IntegerDigits[n]]}, Union[ IntegerQ[ # ] & /@ (n/id)] == {True}]; Select[ Range[ 487], fQ[ # ] &] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 21 2005)
|
|
CROSSREFS
|
Cf. A002706, A034709, A007602.
Sequence in context: A084433 A084434 A034709 this_sequence A063527 A064700 A007602
Adjacent sequences: A034835 A034836 A034837 this_sequence A034839 A034840 A034841
|
|
KEYWORD
|
nonn,base,nice
|
|
AUTHOR
|
Erich Friedman (erich.friedman(AT)stetson.edu)
|
|
|
Search completed in 0.002 seconds
|
