OFFSET
1,1
FORMULA
a(n)=Prime[A038601 (n)].
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]}]
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Oct 09 2008
STATUS
approved