|
%I #16 Oct 05 2016 09:06:51
%S 1,3,6,10,15,21,28,36,45,56,78,111,155,210,276,353,441,540,641,752,
%T 873,1004,1145,1296,1457,1628,1809,2000,2202,2414,2636,2868,3110,3362,
%U 3624,3896,4178,4470,4773,5086,5409,5742,6085,6438,6801,7174,7557,7950,8354
%N Sum of the first n palindromes (A002113).
%H Harvey P. Dale, <a href="/A046489/b046489.txt">Table of n, a(n) for n = 0..1000</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/index.html">World!Of Numbers</a>
%t palQ[n_] := Reverse[x = IntegerDigits[n]] == x; Accumulate[Select[Range[410], palQ]] (* _Jayanta Basu_, Jun 26 2013 *)
%Y Cf. A002113, A007504, A046485.
%K nonn,base
%O 0,2
%A _Patrick De Geest_, Sep 15 1998
|
