OFFSET
1,1
PROG
(PARI) for(n=1, 38000, x=prime((n+1)^2)-prime(n^2); if(issquare(x), print1(x, ", ")))
(PARI) { default(primelimit, 4294965247); n=0; for (m=1, 10^9, if(issquare(x=prime((m+1)^2) - prime(m^2)), write("b063082.txt", n++, " ", x); if (n==25, break)) ) } \\ Harry J. Smith, Aug 17 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 05 2001
EXTENSIONS
More terms from Santi Spadaro, Sep 30 2001
More terms from Harry J. Smith, Aug 17 2009
STATUS
approved