1,1

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

(*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]}]

Cf. A038601.

Sequence in context: A162250 A055511 A105236 this_sequence A049883 A059242 A004203

Adjacent sequences: A144464 A144465 A144466 this_sequence A144468 A144469 A144470

nonn,uned

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 09 2008