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,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

Links

Table of n, a(n) for n=1..38.

Mathematica

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

Crossrefs

Cf. A110975, A062234.

Contains n^2 for n in A086381.

Sequence in context: A327989 A192618 A225106 * A322939 A141583 A147413

Adjacent sequences: A110967 A110968 A110969 * A110971 A110972 A110973

Keyword

nonn

Author

Giovanni Teofilatto, Sep 27 2005

Extensions

Corrected and extended by Ray Chandler, Oct 07 2005

Status

approved