|
%I #2 Mar 30 2012 18:49:08
%S 1,2,3,4,5,6,7,8,9,919,1881,8118,9229,10801,11711,12621,13531,14441,
%T 15351,16261,17171,18081,21612,25152,27972,28882,29792,31513,33133,
%U 41014,41114,41214,41314,41414,41514,41614,41714,41814,41914,51315
%N Palindromic numbers that contain the sum of their digits as a substring.
%t Select[Table[n, {n, 100000}], Length[StringPosition[ToString[ # ], ToString[Plus @@ IntegerDigits[ # ]]]] > 0 && ToString[ # ] == StringReverse[ToString[ # ]] &]
%Y Cf. Palindromic subsequence of A052018 - Sum of digits of n is substring of n.
%K nonn,base
%O 1,2
%A _Tanya Khovanova_, Sep 03 2006
|
