OFFSET
1,2
COMMENTS
EXAMPLE
Divisors of 1111: 1, 11, 101, 1111.
MATHEMATICA
Select[Table[n, {n, 2000}], Union[First /@ IntegerDigits[Divisors[#]]] == {1} && Union[Last /@ IntegerDigits[Divisors[#]]] == {1} &] (* Vladimir Joseph Stephan Orlovsky, Feb 26 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Feb 24 2012
STATUS
approved