login
A183055
Palindromic partition numbers.
0
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
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
KEYWORD
nonn,base,hard,more
AUTHOR
Omar E. Pol, Dec 30 2010
STATUS
approved