%I #14 Sep 17 2024 19:30:55
%S 1,3,5,7,9,11,33,55,77,99,111,155,333,555,777,999,1111,1113,1131,1155,
%T 1179,1197,1311,1555,1719,3111,3333,3339,3393,3555,3771,3933,5155,
%U 5355,5555,7119,7777,9333,9999,11111,11133,11155,11313,11331,11355,11555
%N 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.
%H Harvey P. Dale, <a href="/A061507/b061507.txt">Table of n, a(n) for n = 1..3000</a>
%e 155 belongs to this sequence as 1 divides 55 and 5 divides 15.
%t 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 *)
%Y Intersection of A014261 and A061362.
%K nonn,base,easy,changed
%O 1,2
%A _Amarnath Murthy_, Jun 26 2001
%E More terms from _Sascha Kurz_, Mar 24 2002
%E Offset changed by _Andrew Howroyd_, Sep 17 2024