|
%I #13 Nov 21 2013 12:48:20
%S 7,23,97,227,661,1009,1879,2437,3803,6481,7573,11321,14327,15877,
%T 19471,25469,32429,34849,42943,49037,52121,62081,69401,80929,97879,
%U 107053,111863,121631,126719,137143,177589,189913,209569,216481,251969,259547
%N Prime(p^2) where p = prime(n).
%e 5^2=25, prime(25) = 97.
%t Prime[Prime[Range[40]]^2] (* _Harvey P. Dale_, Aug 22 2011 *)
%o (PARI) g(n,m) = forprime(j=2,m, forprime(x=2,n,print1(prime(j^2)",");break))
%K nonn
%O 1,1
%A _Cino Hilliard_, Aug 02 2004
%E Edited by _Robert G. Wilson v_, Aug 07 2004
|
