|
%I #21 Mar 06 2020 03:18:12
%S 252,272,323,414,434,444,464,494,525,555,575,585,595,636,646,656,666,
%T 676,686,696,767,777,828,848,868,888,949,969,989,999,2002,2112,2772,
%U 2992,3003,3553,4004,4224,4554,4774,4884,5005,5115,5225,5775,6006,6336,6996,7007
%N Palindromes that are the product of 2 non-palindromic numbers.
%H Chai Wah Wu, <a href="/A330616/b330616.txt">Table of n, a(n) for n = 1..10000</a>
%e 272=16*17 is a term but 282=6*47 is not a term.
%t seqQ[n_] := PalindromeQ[n] && AnyTrue[Divisors[n], ! PalindromeQ[#] && ! PalindromeQ[n/#] &]; Select[Range[7007], seqQ] (* _Amiram Eldar_, Mar 01 2020 *)
%Y Subsequence of A084325 (palindromes such that at least one divisor is non-palindromic).
%Y Cf. A062687 (numbers all of whose divisors are palindromic).
%K nonn,base
%O 1,1
%A _Bernard Schott_, Mar 01 2020
%E More terms from _Amiram Eldar_, Mar 01 2020
|
