A183055 Palindromic partition numbers.

1, 1, 2, 3, 5, 7, 11, 22, 77, 101

Offset

1,3

Comments

Partition numbers whose decimal expansion is a palindrome.

The next term (if one exists) has at least 400 decimal digits.

Next term, if it exists, is greater than A000041(2000000). - Vaclav Kotesovec, Apr 23 2017

Links

Table of n, a(n) for n=1..10.

Example

101 is in the sequence because 101 is the number of partitions of 13 and 101 is also a palindrome.

Mathematica

palQ[n_Integer, base_Integer:10] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse@idn]; Select[Array[PartitionsP, 1000], palQ[#] &]
Select[PartitionsP[Range[0, 1000]], PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 21 2017 *)

Crossrefs

Intersection of A000041 and A002113.

Sequence in context: A075049 A361820 A061165 * A046689 A048278 A372607

Adjacent sequences: A183052 A183053 A183054 * A183056 A183057 A183058

Keyword

nonn,base,hard,more

Author

Omar E. Pol, Dec 30 2010

Status

approved