A144467 A038601 type numbers where Prime of Prime numbers: a(n)=Prime[A038601 (n)].

3, 5, 11, 41, 919, 3517, 6691, 13709, 23669, 52301, 83101, 146051, 417959, 777901, 970231, 1076401, 1894117, 2315069, 2592269, 2641469, 2777111, 2997227, 3523343, 3788843, 4076257, 4159231, 5082059, 5271961, 5295569, 5363801, 6451931

Offset: 1

Author

Roger L. Bagula, Oct 09 2008

Keywords

• nonn
• uned

Crossrefs

Cf. A038601.

Programs

Mathematica

(*A038601*) b = {2, 3, 5, 13, 157, 491, 863, 1621, 2633, 5347, 8117, 13513, 35227, 62311, 76367, 84017, 141637, 170537, 189353, 192667, 201821, 216617, 251677, 269257, 288203, 293621, 353807, 366103, 367621, 372023, 441703, 444167, 478571, 518657, 582371, 626333}; c = Table[Prime[b[[n]]], {n, 1, Length[b]}]

Formula

a(n)=Prime[A038601 (n)].