|
%I #8 Feb 01 2017 11:33:34
%S 110,210,220,310,321,330,410,420,431,440,510,521,532,541,550,610,620,
%T 630,642,651,660,710,721,731,743,752,761,770,810,820,832,840,853,862,
%U 871,880,910,921,930,941,954,963,972,981,990
%N Three-digit numbers with nonincreasing decimal digits such that the first digit modulo the second digit equals the third digit.
%t ndd[n_]:=Module[{idn=IntegerDigits[n]},Max[Differences[idn]]<1&& idn[[2]] != 0 &&Mod[idn[[1]],idn[[2]]]==idn[[3]]]; Select[Range[100,999],ndd] (* _Harvey P. Dale_, Feb 01 2017 *)
%K base,easy,fini,nonn,full
%O 1,1
%A _Eric Angelini_, Jun 14 2005
%E Definition clarified by _Harvey P. Dale_, Feb 01 2017
|
