OFFSET
1,1
COMMENTS
The sequence is complete.
EXAMPLE
287 is in the sequence, because 287 = 7 (mod 2 + 8), 287 = 8 (mod 2 + 7) and 287 = 2 (mod 8 + 7).
MATHEMATICA
Select[Range[10^7], Function[{n, d, s}, And[Length@ Union@ d == IntegerLength@ n, AllTrue[d, If[# == 0, 0, Mod[n, #]] &[s - #] == # &]]] @@ {#1, #2, Total@ #2} & @@ {#, IntegerDigits@ #} &] (* Michael De Vlieger, Mar 11 2019 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Daniel Starodubtsev, Mar 10 2019
STATUS
approved