OFFSET
1,2
COMMENTS
How is the upper limit for the search determined, which ensures that a square difference not previously made does not occur with much larger values? - Hugo Pfoertner, Mar 02 2020
MATHEMATICA
Union[Select[(2Prime[ # ] - Prime[ # + 1]) & /@ Range[13000], IntegerQ[Sqrt[ # ]] &]] (* Ray Chandler, Oct 07 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Sep 27 2005
EXTENSIONS
Corrected and extended by Ray Chandler, Oct 07 2005
STATUS
approved