login
A085935
Palindromes in A085934.
3
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,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