login
Numbers with all different digits such that each digit leaves the same nonzero remainder when each is divided into the number.
0

%I #11 Jun 28 2020 15:11:54

%S 289,379,386,469,649,673,674,869,938,2437,4873,23689,24697,27469,

%T 28369,32689,36289,36794,42673,46873,47629,62497,62749,63289,68329,

%U 79634,82369,84673,86329,93746,348769,364897,376489,487369,673849,684937,689473,736849,837649,843697

%N Numbers with all different digits such that each digit leaves the same nonzero remainder when each is divided into the number.

%C Subsequence of A152824. The sequence contains exactly 40 terms.

%e 869 == 5 (mod 8) == 5 (mod 6) == 5 (mod 9).

%t Select[Range[845000],FreeQ[IntegerDigits[#],0]&&Max[DigitCount[#]]==1&&Length[ Union[Mod[#,IntegerDigits[#]]]]==1&&Mod[#,IntegerDigits[#][[1]]]> 0&] (* _Harvey P. Dale_, Jun 28 2020 *)

%Y Cf. A152824.

%K nonn,base,full,fini

%O 1,1

%A _Pierre CAMI_, Dec 14 2008

%E a(5) corrected and all remaining terms provided by _Jon E. Schoenfield_ and _Zak Seidov_, Dec 14 2008