OFFSET
1,2
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..500
EXAMPLE
Number 110 is in sequence because all divisors of 110 (1, 2, 5, 10, 11, 22, 55, 110) are numbers whose decimal digits are in nonincreasing order.
MAPLE
with(numtheory): A190220 := 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(A190220(n), n=1..64); # Nathaniel Johnston, May 14 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, May 06 2011
STATUS
approved