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 #8 Jan 27 2021 05:34:12
%S 4,272,352,400,414,418,425,432,448,450,465,490,504,518,572,585,598,
%T 720,732,744,756,768,972,1092,1104,1152,1210,1221,1232,1243,1254,1265,
%U 1276,1287,1298,1309,1792,1872,1887,1890,1904,1914,1920,1950,1972,2100,2112,2672
%N Integers m that have at least one divisor d such that d+m/d is a substring of m.
%C These are the resulting product strings in A339144.
%e 272 = 4*68 contains 4+68 = 72 as a substring, so 272 is a term.
%t q[n_] := AnyTrue[Divisors[n], SequenceCount[IntegerDigits[n], IntegerDigits[# + n/#]] > 0 &]; Select[Range[3000], q] (* _Amiram Eldar_, Jan 26 2021 *)
%o (PARI) isok(n) = {fordiv(n, d, if (#strsplit(Str(n), Str(d+n/d)) > 1, return(1)); if (d^2 > n, return(0)););}
%Y Cf. A339144, A340917.
%K nonn,base
%O 1,1
%A _Michel Marcus_, Jan 26 2021