OFFSET
1,1
LINKS
EXAMPLE
289 == 1 (mod 2) == 1 (mod 8) == 1 (mod 9), so 289 is a member.
MATHEMATICA
fQ[n_] := Block[{a = Union@ Mod[n, IntegerDigits@n]}, a != {0} && Length@ a == 1]; Select[Range@ 4248, fQ@# &] (* Robert G. Wilson v *)
PROG
(PARI) is(n)=my(d=Set(digits(n)), t); if(#d<2 || d[1]==0, return(0)); t=n%d[1]; if(t==0, return(0)); for(i=2, #d, if(n%d[i]!=t, return(0))); 1 \\ Charles R Greathouse IV, Feb 15 2017
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
J. M. Bergot, Dec 13 2008
EXTENSIONS
Corrected and extended by Joshua Zucker and Robert G. Wilson v, Dec 14 2008
Corrected and extended by Joshua Zucker, Dec 14 2008
STATUS
approved