A144466 Primes p such that the partition number of the p-th prime is also a prime.

2, 3, 37, 257, 1021, 1601, 67757, 193873, 331889, 332099, 843181, 1278029, 1437133, 1613153, 2160797, 2423873, 3076313, 3506039, 4108889, 4430753, 4656089

Offset

1,1

Links

Table of n, a(n) for n=1..21.

Formula

{ p in {A000040} : A000041(A000040(p)) in {A000040} }.

Example

37 is in the sequence because the 37th prime is 157, the partition number of 157 is 80630964769 and 80630964769 is a prime.

Mathematica

Flatten[Table[If[PrimeQ[PartitionsP[Prime[Prime[n]]]], Prime[n], {}], {n, 1, 2000}]]
Select[Prime[Range[260]], PrimeQ[PartitionsP[Prime[#]]]&] (* Harvey P. Dale, Nov 01 2011 *)

Crossrefs

Cf. A038601.

Sequence in context: A189027 A061576 A221055 * A245061 A270587 A119448

Adjacent sequences: A144463 A144464 A144465 * A144467 A144468 A144469

Keyword

nonn,more

Author

Roger L. Bagula, Oct 09 2008

Extensions

Edited by Alois P. Heinz, Oct 26 2011

a(7)-a(21) from Michael S. Branicky, Sep 30 2023

Status

approved