A085935 Palindromes in A085934.

1, 2, 3, 4, 101, 202, 303, 404, 454, 505, 545, 606, 616, 636, 676, 707, 808, 818, 909, 1001, 2002, 3003, 4004, 5005, 6006, 7007, 8008, 9009, 10001, 10101, 11011, 20002, 20202, 22022, 22622, 30003, 30303, 33033, 34243, 40004, 40404, 43234, 44044

Offset: 1

Author

Jason Earls and Amarnath Murthy, Jul 14 2003

Keywords

• base
• easy
• nonn

Examples

			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.
		

Crossrefs

Cf. A085932, A085933, A085934.

Programs

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 *)