OFFSET
1,1
MATHEMATICA
ndd[n_]:=Module[{idn=IntegerDigits[n]}, Max[Differences[idn]]<1&& idn[[2]] != 0 &&Mod[idn[[1]], idn[[2]]]==idn[[3]]]; Select[Range[100, 999], ndd] (* Harvey P. Dale, Feb 01 2017 *)
CROSSREFS
KEYWORD
base,easy,fini,nonn,full
AUTHOR
Eric Angelini, Jun 14 2005
EXTENSIONS
Definition clarified by Harvey P. Dale, Feb 01 2017
STATUS
approved