A138735 Primes p1 such that p1^3+p2^2=pp are average of twin primes. p1 and p2 consecutive primes, p1 < p2.

23, 2069, 2351, 3371, 3719, 4007, 4091, 5231, 5987, 7823, 15551, 15791, 16301, 17117, 18521, 20129, 22031, 23063, 25253, 26267, 28001, 28283, 33791, 39461, 41621, 42179, 42923, 45119, 48527, 48821, 49121, 50411, 52691, 54623, 57947, 58889, 60869, 62753, 64373, 71129, 71429, 71711, 72101

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

p:= 1: q:= 2:
res:= NULL: count:= 0:
while count < 100 do
  p:= q; q:= nextprime(p);
  m:= p^3 + q^2;
  if isprime(m-1) and isprime(m+1) then
    count:= count+1; res:= res, p;
  fi
od:
res; # Robert Israel, Apr 02 2018

Mathematica

a={}; Do[p1=Prime[n]; p2=Prime[n+1]; pp=p1^3+p2^2; If[PrimeQ[pp-1]&&PrimeQ[pp+1], AppendTo[a, p1]], {n, 16^3}]; Print[a];

Crossrefs

Sequence in context: A132395 A064016 A263462 * A220653 A281787 A132937

Adjacent sequences: A138732 A138733 A138734 * A138736 A138737 A138738

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 15 2008

Status

approved