%I #23 Sep 08 2022 08:46:25
%S 0,2,4,6,8,11,22,33,44,55,66,77,88,99,101,111,131,141,151,161,171,181,
%T 191,202,212,232,242,252,262,272,282,292,303,313,333,343,353,363,373,
%U 383,393,404,414,434,444,454,464,474,484,494,505,515,535,545,555,565,575
%N Palindromes that are the sum of a number and the sum of its digits.
%H Chai Wah Wu, <a href="/A332240/b332240.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) in { A062028(A229545(i)) : i >= 1 }. - _Amiram Eldar_, Feb 12 2020
%e 196 + 1 + 9 + 6 = 212, so 212 is in this sequence.
%t palQ[n_] := Block[{d = IntegerDigits[n]}, Reverse[d] == d]; Select[ Union[(# + Plus @@ IntegerDigits@#) & /@ Range[0, 600]], # <= 600 && palQ[#] &] (* _Giovanni Resta_, Feb 07 2020 *)
%o (Magma) pal:=func<n|Seqint(Intseq(n)) eq Seqint(Reverse(Intseq(n)))>; [k:k in [0..600]| pal(k) and exists(m){s:s in [0..k]| s+&+Intseq(s) eq k}]; // _Marius A. Burtea_, Feb 08 2020
%Y Intersection of A002113 and A176995.
%Y Cf. A062028, A229545.
%K nonn,base
%O 1,2
%A _Eric Fox_, Feb 07 2020
%E More terms from _Giovanni Resta_, Feb 07 2020