OFFSET
1,2
EXAMPLE
616 is a member as the digits of 616 sorted in ascending order are 166 and the digital product of 166 is 36 and 166 + 36 = 202 is a palindrome.
MATHEMATICA
pdsQ[n_]:=Module[{ds=Sort[IntegerDigits[n]]}, AllTrue[{n, FromDigits[ds]+ Times@@ds}, PalindromeQ]]; Select[Range[45000], pdsQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 20 2020 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls and Amarnath Murthy, Jul 14 2003
STATUS
approved