A114167 Numbers n such that p(7n) is prime, where p(n) is the number of partitions of n.

11, 24, 75, 78, 94, 105, 155, 211, 293, 416, 506, 666, 1860, 3013, 3508, 3811, 4869, 5615, 5710, 8824, 8841, 8998, 10380, 11014, 11779, 13795, 14276, 15285, 18014, 19456, 19855, 22435, 23343, 23391, 26328, 30608, 31380, 32074, 32810, 33459

Offset

1,1

Links

Max Alekseyev, Table of n, a(n) for n = 1..810

Mathematica

Select[ Range[28571], PrimeQ[PartitionsP[7# ]] &]

Prog

(PARI) is(n)=isprime(numbpart(7*n)) \\ Charles R Greathouse IV, Feb 17 2017

Crossrefs

Cf. A000041, A046063, A114165, A111389, A111045, A114166, A111036, A114167, A114168, A114169, A114170.

Sequence in context: A053061 A055820 A334597 * A108302 A182689 A251412

Adjacent sequences: A114164 A114165 A114166 * A114168 A114169 A114170

Keyword

nonn

Author

Robert G. Wilson v, Nov 14 2005

Status

approved