OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..300
MATHEMATICA
Join[{0}, Transpose[Select[Table[{n, Prime[n]}, {n, 15000}], IntegerQ[ Sqrt[ Total[#]]]&]][[1]]] (* Harvey P. Dale, May 26 2011 *)
PROG
(PARI) j=[]; for(n=0, 20000, if(n==0 || issquare(prime(n)+n), j=concat(j, n))); j
(PARI) { n=0; default(primelimit, 20000000); for (m=0, 10^9, if (m==0 || issquare(prime(m) + m), write("b064371.txt", n++, " ", m); if (n==300, break)) ) } \\ Harry J. Smith, Sep 14 2009
(Magma) [0] cat [n: n in [1..12500] | IsSquare(NthPrime(n)+n)]; // Bruno Berselli, May 26 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Sep 26 2001
EXTENSIONS
Edited by Harry J. Smith, Sep 14 2009
STATUS
approved