1,1
{ p in {A000040} : A000041(A000040(p)) in {A000040} }.
37 is in the sequence because the 37-th prime is 157, the partition number of 157 is 80630964769 and 80630964769 is a prime.
Flatten[Table[If[PrimeQ[PartitionsP[Prime[Prime[n]]]], Prime[n], {}], {n, 1, 2000}]]
Select[Prime[Range[260]], PrimeQ[PartitionsP[Prime[#]]]&] (* From Harvey P. Dale, Nov 01 2011 *)
Cf. A038601.
Sequence in context: A118370 A189027 A061576 * A119448 A041329 A060813
Adjacent sequences: A144463 A144464 A144465 * A144467 A144468 A144469
nonn,more
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 09 2008
Edited by Alois P. Heinz (heinz(AT)hs-heilbronn.de), Oct 26 2011