OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
EXAMPLE
6 is in the sequence because prime(6)^2 - 6 = 169 - 6 = 163 is a prime.
MAPLE
A064713:=n->`if`(isprime(ithprime(n)^2-n), n, NULL): seq(A064713(n), n=1..2*10^3); # Wesley Ivan Hurt, Jan 21 2017
MATHEMATICA
Select[Range[1000], PrimeQ[Prime[#]^2-#]&] (* Harvey P. Dale, May 17 2013 *)
PROG
(PARI) { n=0; for (m=1, 10^9, if (isprime(prime(m)^2 - m), write("b064713.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Sep 23 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Oct 13 2001
STATUS
approved