|
%I #17 May 12 2019 18:29:50
%S 4,8,9,16,25,27,32,39,46,49,58,64,69,81,92,93,111,116,117,119,121,125,
%T 128,129,143,159,169,184,187,207,209,219,221,232,243,247,249,254,256,
%U 259,265,279,289,295,299,309,323,329,333,339,341,343,351,361,368,387
%N Composite numbers all of whose prime factors (considered with multiplicity) share at least one digit.
%e E.g., 92 = 2 * 2 * 23 is a term because the sets {2}, {2} and {2,3} share the digit 2.
%t Select[2~Range~500,!PrimeQ@#&&And@@IntersectingQ@@@Subsets[ IntegerDigits[ First/@FactorInteger[#]],{2}]&] (* _Giorgos Kalogeropoulos_, May 09 2019 *)
%Y Cf. A052053.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Dec 15 1999
%E Offset 1 from _Michel Marcus_, May 09 2019
%E Name clarified by _Jon E. Schoenfield_, May 10 2019
|
