A139779 Greater of twin primes p2 such that p1^3+p2^2=pp is the average of twin primes. p1 and p2 twin primes, p1 < p2.

3373, 4093, 5233, 18523, 42181, 45121, 48823, 49123, 71713, 72103, 75541, 83641, 91573, 94153, 94561, 115981, 117193, 128113, 128341, 157771, 179821, 186301, 189493, 203323, 208891, 213361, 233161, 248203, 250051, 251971, 259453, 267301, 273901, 275161

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

a={}; Do[p1=Prime[n]; p2=Prime[n+1]; pp=p1^3+p2^2; If[(p2-p1)==2&&PrimeQ[pp-1]&&PrimeQ[pp+1], AppendTo[a, p2]], {n, 10^4}]; Print[a];
Select[Partition[Prime[Range[30000]], 2, 1], #[[2]]-#[[1]]==2 && AllTrue[ #[[1]]^3+#[[2]]^2+{1, -1}, PrimeQ]&][[All, 2]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 13 2018 *)

Crossrefs

Sequence in context: A254391 A254384 A253979 * A031626 A117921 A052357

Adjacent sequences: A139776 A139777 A139778 * A139780 A139781 A139782

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 16 2008

Extensions

More terms from Harvey P. Dale, Sep 13 2018

Status

approved