login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A061362
Numbers in which each nonzero digit divides the number formed by the rest, i.e., the number obtained by just removing this digit.
3
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 20, 22, 30, 33, 40, 44, 50, 55, 60, 66, 70, 77, 80, 88, 90, 99, 100, 101, 102, 105, 110, 111, 120, 122, 124, 126, 142, 150, 155, 162, 168, 186, 200, 202, 204, 210, 220, 222, 240, 244, 248, 250, 284, 300, 303, 306, 324, 330, 333
OFFSET
1,3
LINKS
EXAMPLE
142 is a member as 1 divides 42, 2 divides 14 and 4 divides 12.
MATHEMATICA
ddnQ[n_]:=Module[{idn=IntegerDigits[n], nz, len, tr}, nz=Select[idn, #!=0&]; len = Length[idn]; tr=Table[FromDigits[Drop[idn, {i}]], {i, len}]; And@@ Table[ Divisible[ tr[[k]], nz[[k]]], {k, Length[nz]}]]; Select[Range[400], ddnQ] (* Harvey P. Dale, Jun 29 2015 *)
PROG
(PARI) ok(n)={my(d=digits(n)); for(i=1, #d, if(d[i] && fromdigits(concat(d[1..i-1], d[i+1..#d]))%d[i], return(0))); 1} \\ Andrew Howroyd, Sep 17 2024
CROSSREFS
Sequence in context: A334145 A190220 A113586 * A373117 A096091 A084050
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Jun 26 2001
EXTENSIONS
Corrected and extended by Dean Hickerson, Jul 10 2001
Offset changed and 0 inserted by Andrew Howroyd, Sep 17 2024
STATUS
approved