OFFSET
1,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..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) 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
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