

A183055


Palindromic partition numbers.


0




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: A038204 A075049 A061165 * A046689 A048278 A247797
Adjacent sequences: A183052 A183053 A183054 * A183056 A183057 A183058


KEYWORD

nonn,base,hard,more


AUTHOR

Omar E. Pol, Dec 30 2010


STATUS

approved



