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

%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