OFFSET
1,1
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..10000
EXAMPLE
42 = 2*3*7 belongs to this sequence, since its prime factors all have one digit.
MATHEMATICA
f[n_] := Length[Union[Length /@ IntegerDigits /@ Transpose[FactorInteger[n]][[1]]]] == 1; Select[Range[2, 180], ! PrimeQ[#] && f[#] &] (* T. D. Noe, Nov 01 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Arkadiusz Wesolowski, Nov 01 2011
STATUS
approved