%I #10 Sep 19 2024 12:06:42
%S 1,2,3,4,252,393,525,15451,25152,25252,25352,25452,36563,45154,51415,
%T 52125,52225,52325,52425,54145,63536,92529,1455541,1545451,1569651,
%U 1659561,1954591,1958591,2255522,2359532,2525252,2539352,2552552
%N Palindromes n such that n+(product of digits of n) gives a larger palindrome.
%C Each of the terms must contain no zeros. - _Harvey P. Dale_, Sep 18 2024
%H Chai Wah Wu, <a href="/A114341/b114341.txt">Table of n, a(n) for n = 1..10000</a>
%e 393 + 3*9*3 = 474.
%t Select[Range[256*10^4],FreeQ[IntegerDigits[#],0]&&AllTrue[#+{0,Times@@IntegerDigits[#]},PalindromeQ]&] (* _Harvey P. Dale_, Sep 18 2024 *)
%K base,nonn
%O 1,2
%A _Giovanni Resta_, Feb 08 2006