|
|
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.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|