A163996 Primes with a composite number of partitions.

7, 11, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293

Offset: 1

Author

Omar E. Pol, Aug 09 2009

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000
• Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos
• Omar E. Pol, Illustration of the shell model of partitions (3D view)

Crossrefs

Cf. A000040, A000041, A002808, A038601, A135010, A163997, A163998.

Programs

Mathematica

Select[Prime[Range[100]],!PrimeQ[PartitionsP[#]]&] (* Harvey P. Dale, Jun 22 2014 *)

Formula

A000040 \ A038601. [From R. J. Mathar, Sep 27 2009]

Extensions

More terms from R. J. Mathar, Sep 27 2009