A046487 -id:A046487 - cp's OEIS frontend

A046486 Numbers k such that the sum of the first k palindromes is a palindrome.

1, 2, 3, 12, 16, 47, 314

Offset: 1

Patrick De Geest, Sep 15 1998

			a(n)=47 so 1+2+3+...+373+383 (47 terms) = 7557.

Patrick De Geest, World!Of Numbers

Cf. A002113, A046487, A046488.

palQ[n_] := Reverse[x = IntegerDigits[n]] == x; t = Select[Range[25000], palQ[#] &]; Flatten[Rest[Position[Accumulate[t], ?palQ]]] (* _Jayanta Basu, Jun 26 2013 *)
Position[Accumulate[Select[Range[100000],PalindromeQ]],?PalindromeQ] // Flatten (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale, Jan 31 2020 *)

A046488 Palindromes that are the sum of the first n palindromes for some n.

Original entry on oeis.org

1, 3, 6, 111, 353, 7557, 2376732

Offset: 1

Patrick De Geest, Sep 15 1998

No additional terms up through the partial sums of all palindromes less than or equal to 10^7-1. - Harvey P. Dale, Jun 23 2018

			a(4) = 111 as 111 = 1+2+3+4+5+6+7+8+9+11+22+33.

P. De Geest, World!Of Numbers

Cf. A002113, A046486, A046487.

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 *)

a(n) = A046489(A046486(n)-1). - R. J. Mathar, Sep 09 2015

Edited by Jonathan Sondow, Nov 28 2017

cp's OEIS Frontend

A046486 Numbers k such that the sum of the first k palindromes is a palindrome.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica