A110970 Squares of the form 2*prime(n) - prime(n+1).

1, 9, 25, 81, 225, 361, 441, 1089, 1225, 2025, 2601, 3249, 3721, 5041, 7569, 7921, 12321, 13689, 15129, 18225, 21609, 30625, 31329, 38809, 42025, 47961, 53361, 59049, 65025, 77841, 88209, 91809, 94249, 99225, 110889, 123201, 126025, 131769

Offset: 1

Author

Giovanni Teofilatto, Sep 27 2005

Keywords

• nonn

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

Crossrefs

Cf. A110975, A062234.

Contains n^2 for n in A086381.

Programs

Mathematica

Union[Select[(2Prime[ # ] - Prime[ # + 1]) & /@ Range[13000], IntegerQ[Sqrt[ # ]] &]] (* Ray Chandler, Oct 07 2005 *)

Extensions

Corrected and extended by Ray Chandler, Oct 07 2005