A088188 Squares that are a sum of twin primes and their indices.

81, 46225, 151321, 588289, 769129, 1108809, 1692601, 2283121, 3367225, 6195121, 9715689, 12341169, 14814801, 18344089, 18983449, 20657025, 35271721, 38551681, 38775529, 48511225, 50993881, 54597321, 60730849, 63059481, 80156209

Offset

1,1

Comments

Add both primes of the pair as well as their prime indices. Example: prime(11) - prime(10) = 31 - 29 = 2; prime(10) + prime(11) + 10 + 11 = 81 = 9^2 = a(1).

Links

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

Mathematica

Select[#[[1]]+#[[2]]+PrimePi[#[[1]]]+PrimePi[#[[2]]]&/@Select[ Partition[ Prime[Range[3*10^6]], 2, 1], #[[2]]-#[[1]]==2&], IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Feb 29 2020 *)

Crossrefs

Squares in A088186. Cf. A088187.

Sequence in context: A017428 A195274 A189149 * A017560 A128493 A145261

Adjacent sequences: A088185 A088186 A088187 * A088189 A088190 A088191

Keyword

easy,nonn

Author

Zak Seidov, Sep 22 2003

Extensions

More terms from Ray Chandler, Sep 25 2003

Status

approved