cp's OEIS Frontend

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.

A332240 Palindromes that are the sum of a number and the sum of its digits.

This page as a plain text file.
%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