A096327 Prime(p^2) where p = prime(n).
7, 23, 97, 227, 661, 1009, 1879, 2437, 3803, 6481, 7573, 11321, 14327, 15877, 19471, 25469, 32429, 34849, 42943, 49037, 52121, 62081, 69401, 80929, 97879, 107053, 111863, 121631, 126719, 137143, 177589, 189913, 209569, 216481, 251969, 259547
Offset: 1
Keywords
Examples
5^2=25, prime(25) = 97.
Programs
-
Mathematica
Prime[Prime[Range[40]]^2] (* Harvey P. Dale, Aug 22 2011 *)
-
PARI
g(n,m) = forprime(j=2,m, forprime(x=2,n,print1(prime(j^2)",");break))
Extensions
Edited by Robert G. Wilson v, Aug 07 2004