|
%I #10 Feb 15 2017 01:35:24
%S 223,289,337,379,433,469,477,649,673,2227,2233,2263,2269,2323,2437,
%T 2449,2623,2629,2773,2833,3223,3277,3349,3433,3493,3889,4249,4333,
%U 4393,4429,4633,4873,4933,4969,6223,6229,6433,6637,6679,6763,6949,7267,7477,7939
%N Numbers such that each digit leaves the same nonzero remainder when each is divided into the number.
%H Joshua Zucker, <a href="/A152824/b152824.txt">Table of n, a(n) for n = 1..1543</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%e 289 == 1 (mod 2) == 1 (mod 8) == 1 (mod 9), so 289 is a member.
%t fQ[n_] := Block[{a = Union@ Mod[n, IntegerDigits@n]}, a != {0} && Length@ a == 1]; Select[Range@ 4248, fQ@# &] (* _Robert G. Wilson v_ *)
%o (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
%Y Subsequence of A052382.
%K nonn,base,easy
%O 1,1
%A _J. M. Bergot_, Dec 13 2008
%E Corrected and extended by _Joshua Zucker_ and _Robert G. Wilson v_, Dec 14 2008
%E Corrected and extended by _Joshua Zucker_, Dec 14 2008
|
