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,1

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)

Formula

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

Mathematica

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

Crossrefs

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

Sequence in context: A076045 A101618 A147956 * A117743 A216495 A034849

Adjacent sequences: A163993 A163994 A163995 * A163997 A163998 A163999

Keyword

nonn

Author

Omar E. Pol, Aug 09 2009

Extensions

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

Status

approved