OFFSET
1,1
COMMENTS
EXAMPLE
Number 10201 is in the sequence because the largest digit of all divisors of 10201 (1, 101, 10201) is 2.
MATHEMATICA
t = {}; n = 1; While[Length[t] < 40, n++; m = FromDigits[IntegerDigits[n, 3]]; If[! PrimeQ[m] && Max[Union[Flatten[IntegerDigits[Divisors[m]]]]] <= 2, AppendTo[t, m]]]; t (* T. D. Noe, Jan 30 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Jan 22 2013
STATUS
approved