cp's OEIS Frontend

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.

A340917 Integers m that have at least one divisor d such that reverse(d+m/d) is a substring of m.

This page as a plain text file.
%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