A061362 Numbers in which each nonzero digit divides the number formed by the rest, i.e., the number obtained by just removing this digit. 0 is divisible by every number.

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

0,2

Links

Harry J. Smith, Table of n, a(n) for n = 0..1000

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) { n=-1; for (m=1, 20080, for (i=0, 10^10, b=10^i; x=(m\b)*b; y=m-x; x=x\b; d=x%10; x=b*(x\10); if (d==0, d=1); if ((x+y)%d != 0, break); if (x==0, write("b061362.txt", n++, " ", m); break); ) ) } \\ Harry J. Smith, Jul 21 2009

Crossrefs

Sequence in context: A334145 A190220 A113586 * A373117 A096091 A084050

Adjacent sequences: A061359 A061360 A061361 * A061363 A061364 A061365

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jun 26 2001

Extensions

Corrected and extended by Dean Hickerson, Jul 10 2001

Status

approved