|
%I #14 Sep 29 2023 07:09:53
%S 0,1,3,6,10,15,21,28,36,45,47,51,57,65,75,87,101,117,135,137,140,144,
%T 149,155,162,170,179,189,200,204,209,215,222,230,239,249,260,272,285,
%U 291,298,306,315,325,336,348,361,375,390,398,407,417,428,440,453,467,482,498
%N a(n) is the sum of digits of the first n palindromes.
%H David A. Corneth, <a href="/A113168/b113168.txt">Table of n, a(n) for n = 1..10000</a>
%e First twelve base 10 palindromes are 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22. Sum of their digits is 0+1+2+3+4+5+6+7+8+9+1+1+2+2 = 51, hence a(12) = 51.
%t With[{pals=Select[Range[0,500],#==IntegerReverse[#]&]},Table[ Total[ Flatten[ IntegerDigits/@ Take[ pals, n]]],{n,Length[pals]}]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 14 2016 *)
%Y Partial sums of A043269.
%K nonn,base
%O 1,3
%A _Giovanni Teofilatto_, Jan 06 2006
%E Edited and extended by _Klaus Brockhaus_, Jan 06 2006
|
