|
%I #6 Aug 13 2018 14:23:05
%S 121,242,363,484,0,0,0,0,0,101101,112211,123321,134431,145541,156651,
%T 167761,178871,189981,0,202202,213312,224422,235532,246642,257752,
%U 268862,279972,0,2912192,303303,314413,325523,336633,347743,358853,369963,0,3812183,0
%N Palindromes formed from the concatenation of n, sum of n and R(n), and R(n) with its leading zeros; or 0 if no such palindrome exists. R(k) is the digit reversal of k.
%H Harvey P. Dale, <a href="/A084998/b084998.txt">Table of n, a(n) for n = 1..1000</a>
%e E.g. a(38)=3812183: 83+38=121 and 38_121_83 is a palindrome.
%t f[n_]:=FromDigits[Join[IntegerDigits[n],IntegerDigits[n+ IntegerReverse[ n]], Reverse[ IntegerDigits[n]]]]; Table[If[PalindromeQ[f[n]],f[n],0],{n,50}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 13 2018 *)
%K nonn,base
%O 1,1
%A Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 01 2003
%E New description from _Charles R Greathouse IV_, Aug 02 2010
%E Corrected and extended by _Harvey P. Dale_, Aug 13 2018
|
