1,1
a(n)=If[PrimeQ[PartitionsP[Prime[n]]], Prime[n]].
Flatten[Table[If[PrimeQ[PartitionsP[Prime[Prime[n]]]], Prime[n], {}], {n, 1, 2000}]]
Cf. A038601.
Sequence in context: A062459 A118370 A061576 this_sequence A041329 A060813 A039820
Adjacent sequences: A144463 A144464 A144465 this_sequence A144467 A144468 A144469
nonn,uned
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 09 2008
Search completed in 0.002 seconds