login
A114166
Numbers n such that p(5n) is prime, where p(n) is the number of partitions of n.
13
1, 88, 105, 147, 165, 217, 1481, 2216, 2579, 2604, 3008, 3658, 3694, 4329, 4353, 4447, 4534, 5074, 5793, 6120, 6578, 6648, 7861, 7994, 8276, 8851, 9421, 10371, 12350, 12359, 12389, 13010, 13345, 13479, 14532, 14727, 16461, 19313, 19466, 20354
OFFSET
1,2
LINKS
MATHEMATICA
Select[ Range[20780], PrimeQ[PartitionsP[5# ]] &]
PROG
(PARI) is(n)=isprime(numbpart(5*n)) \\ Charles R Greathouse IV, Feb 17 2017
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 14 2005
STATUS
approved