This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A190219 #15 Feb 22 2024 14:10:15 %S A190219 1,2,3,4,5,6,7,8,9,10,20,21,31,40,41,43,53,61,62,63,71,73,82,83,86,93, %T A190219 97,421,431,521,541,631,641,643,653,743,751,761,821,842,853,862,863, %U A190219 941,953,961,971,983,5431,6421,6521,7321,7541,7621,7643,8431,8521 %N A190219 Numbers all of whose divisors have decimal digits in strictly decreasing order. %C A190219 Sequence is finite. Last term a(104) = 98765431. %C A190219 Subset of A009995 and A190220. Superset of A052014. %H A190219 Nathaniel Johnston, <a href="/A190219/b190219.txt">Table of n, a(n) for n = 1..104</a> (full sequence) %e A190219 Number 93 is in sequence because all divisors of 93 (1, 3, 31, 93) are numbers whose decimal digits are in strictly decreasing order. %p A190219 with(numtheory): A190219 := proc(n) option remember: local d,dd,i,j,k,m,poten: if(n=1)then return 1: fi: for k from procname(n-1)+1 do d:=divisors(k): poten:=1: for i from 1 to nops(d) do m:=-1: dd:=convert(d[i],base,10): for j from 1 to nops(dd) do if(m<dd[j])then m:=dd[j]: else poten:=0: break: fi: od: if(poten=0)then break:fi: od: if(poten=1)then return k: fi: od: end: seq(A190219(n),n=1..60); # _Nathaniel Johnston_, May 06 2011 %t A190219 Select[Range[9000],Max[Flatten[Differences/@(IntegerDigits/@Divisors[#])]]<0&] (* _Harvey P. Dale_, Feb 22 2024 *) %K A190219 nonn,fini,full,base %O A190219 1,2 %A A190219 _Jaroslav Krizek_, May 06 2011