A046488 Palindromes that are the sum of the first n palindromes for some n.
1, 3, 6, 111, 353, 7557, 2376732
Offset: 1
Examples
a(4) = 111 as 111 = 1+2+3+4+5+6+7+8+9+11+22+33.
Links
- P. De Geest, World!Of Numbers
Programs
-
Mathematica
palQ[n_] := Reverse[x = IntegerDigits[n]] == x; Select[Accumulate[Select[Range[25000], palQ]], palQ] (* Jayanta Basu, Jun 26 2013 *) Select[Accumulate[Select[Range[10^6],PalindromeQ]],PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 23 2018 *)
Formula
Extensions
Edited by Jonathan Sondow, Nov 28 2017
Comments