|
|
A061507
|
|
Numbers with all odd digits, in which each digit divides the number formed by the rest, i.e., the number obtained by just removing this digit.
|
|
1
|
|
|
1, 3, 5, 7, 9, 11, 33, 55, 77, 99, 111, 155, 333, 555, 777, 999, 1111, 1113, 1131, 1155, 1179, 1197, 1311, 1555, 1719, 3111, 3333, 3339, 3393, 3555, 3771, 3933, 5155, 5355, 5555, 7119, 7777, 9333, 9999, 11111, 11133, 11155, 11313, 11331, 11355, 11555
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
155 belongs to this sequence as 1 divides 55 and 5 divides 15.
|
|
MATHEMATICA
|
eddnQ[n_]:=Module[{idn=IntegerDigits[n]}, And@@(Divisible[First[#], Last[#]]&/@Table[{FromDigits[Drop[idn, {i}]], idn[[i]]}, {i, Length[ idn]}])]; Select[Flatten[Table[FromDigits/@Tuples[{1, 3, 5, 7, 9}, d], {d, 5}], 1], eddnQ] (* Harvey P. Dale, Apr 23 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|