This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A332240 #23 Sep 08 2022 08:46:25 %S A332240 0,2,4,6,8,11,22,33,44,55,66,77,88,99,101,111,131,141,151,161,171,181, %T A332240 191,202,212,232,242,252,262,272,282,292,303,313,333,343,353,363,373, %U A332240 383,393,404,414,434,444,454,464,474,484,494,505,515,535,545,555,565,575 %N A332240 Palindromes that are the sum of a number and the sum of its digits. %H A332240 Chai Wah Wu, <a href="/A332240/b332240.txt">Table of n, a(n) for n = 1..10000</a> %F A332240 a(n) in { A062028(A229545(i)) : i >= 1 }. - _Amiram Eldar_, Feb 12 2020 %e A332240 196 + 1 + 9 + 6 = 212, so 212 is in this sequence. %t A332240 palQ[n_] := Block[{d = IntegerDigits[n]}, Reverse[d] == d]; Select[ Union[(# + Plus @@ IntegerDigits@#) & /@ Range[0, 600]], # <= 600 && palQ[#] &] (* _Giovanni Resta_, Feb 07 2020 *) %o A332240 (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 A332240 Intersection of A002113 and A176995. %Y A332240 Cf. A062028, A229545. %K A332240 nonn,base %O A332240 1,2 %A A332240 _Eric Fox_, Feb 07 2020 %E A332240 More terms from _Giovanni Resta_, Feb 07 2020