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