This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A340917 #6 Jan 27 2021 05:34:21 %S A340917 4,72,81,94,114,130,132,148,168,204,231,236,245,272,294,414,448,456, %T A340917 498,518,585,594,756,792,836,867,936,988,994,1056,1127,1170,1210,1221, %U A340917 1271,1281,1380,1478,1608,1680,1748,1768,1782,1798,1887,1914,1930,1938,1948,1960 %N A340917 Integers m that have at least one divisor d such that reverse(d+m/d) is a substring of m. %C A340917 These are the resulting strings in A339403. %e A340917 204 = 6*34 contains reverse(6+34) = reverse(40) = 04 as a substring, so 204 is a term. %t A340917 q[n_] := AnyTrue[Divisors[n], SequenceCount[IntegerDigits[n], Reverse @ IntegerDigits[# + n/#]] > 0 &]; Select[Range[2000], q] (* _Amiram Eldar_, Jan 26 2021 *) %o A340917 (PARI) isok(n) = {fordiv(n, d, if (#strsplit(Str(n), concat(Vecrev(Str(d+n/d)))) > 1, return(1)); if (d^2 > n, return(0)););} %Y A340917 Cf. A339403, A340916. %K A340917 nonn,base %O A340917 1,1 %A A340917 _Michel Marcus_, Jan 26 2021