OFFSET
1,1
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..1000
EXAMPLE
324 -> abs(3-2) and abs(2-4) = 12 so 324/12 = 27.
MATHEMATICA
dcfQ[n_]:=Module[{c=FromDigits[Abs[Differences[IntegerDigits[n]]]]}, If[c == 0, False, Divisible[ n, c]]]; Select[Range[400], dcfQ] (* Harvey P. Dale, Nov 09 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 28 2010
STATUS
approved