OFFSET
1,1
COMMENTS
This sequence looks like A346133 but reversed products are here included.
EXAMPLE
a(1) = 24 = 2 * 12 and 2 * 21 = 42 (which is 24 reversed);
a(2) = 26 = 2 * 13 and 2 * 31 = 62 (which is 26 reversed);
a(3) = 28 = 2 * 14 and 2 * 41 = 82 (which is 28 reversed);
a(4) = 36 = 3 * 12 and 3 * 21 = 63 (which is 36 reversed); etc.
MATHEMATICA
q[n_] := AnyTrue[Rest @ Take[(d = Divisors[n]), Ceiling[Length[d]/2]], (# > 9 || n/# > 9) && !Divisible[#, 10] && !Divisible[n/#, 10] && (!PalindromeQ[#] || !PalindromeQ[n/#]) && IntegerReverse[#] * IntegerReverse[n/#] == IntegerReverse[n] &]; Select[Range[2, 300], q] (* Amiram Eldar, Jul 13 2021 *)
PROG
(Python)
from sympy import divisors
def rev(n): return int(str(n)[::-1])
def ok(n):
divs = divisors(n)
for a in divs[1:(len(divs)+1)//2]:
b = n // a
reva, revb, revn = rev(a), rev(b), rev(n)
if a%10 == 0 or b%10 == 0: continue
if (reva != a or revb != b) and revn == reva * revb: return True
return False
print(list(filter(ok, range(310)))) # Michael S. Branicky, Jul 13 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and Carole Dubois, Jul 13 2021
STATUS
approved