A085932 Numbers k such that (digits of k sorted in ascending order) + (digital sum of k) is a palindrome.
1, 2, 3, 4, 10, 20, 30, 40, 100, 124, 129, 142, 148, 167, 176, 184, 192, 200, 214, 219, 224, 229, 241, 242, 248, 267, 276, 284, 291, 292, 300, 348, 367, 376, 384, 400, 412, 418, 421, 422, 428, 438, 448, 467, 476, 481, 482, 483, 484, 567, 576, 617, 627, 637
Offset: 1
Examples
142 is a term because the digits of 142 in ascending order are 124, the digital sum of 124 is 7, and 124 + 7 = 131, a palindrome.
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
dspQ[n_]:=Module[{sidn=Sort[IntegerDigits[n]],pidn},pidn= IntegerDigits[ FromDigits[ sidn]+ Total[ sidn]]; pidn==Reverse[pidn]]; Select[Range[ 700], dspQ] (* Harvey P. Dale, Jul 19 2011 *)
Comments