The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Jul 22 2019 13:51:47
%S 26,38,42,62,86,68,94,233,80,239,344,251,110,257,352,278,126,368,566,
%T 376,350,374,578,392,446,788,494,602,518,416,804,424,566,614,638,484,
%U 638,710,836,1232,734,536,562,852,806,614,854,1454,674,878,686,950,692
%N Semiprime + (largest integer obtained by concatenating its two divisors).
%e First semiprime is 4; 4 is 2*2; 26=4+22.
%e Second semiprime is 6; 6 is 2*3 (23) or 3*2 (32); 38=6+32.
%e ...
%e Eighth semiprime is 22; 22 is 2*11 (211) or 11*2 (112); 233=22+211.
%t licd[n_]:=Module[{fi=Flatten[Table[#[[1]],#[[2]]]&/@FactorInteger[n],1]}, Max[fi[[1]]*10^IntegerLength[ fi[[2]]]+fi[[2]],fi[[2]]*10^IntegerLength[ fi[[1]]]+fi[[1]]]+n]; licd/@(Select[Range[200],PrimeOmega[#]==2&]) (* _Harvey P. Dale_, Jul 22 2019 *)
%Y Cf. A001358, A106552
%K base,easy,nonn
%O 1,1
%A _Eric Angelini_, May 09 2005
%E Corrected and extended by _Harvey P. Dale_, Jul 22 2019