A054821 Third term of weak prime quartet: p(m-1)-p(m-2) < p(m)-p(m-1) < p(m+1)-p(m).

23, 47, 89, 113, 233, 293, 317, 353, 359, 389, 409, 449, 467, 509, 577, 647, 683, 691, 839, 863, 887, 919, 1039, 1069, 1097, 1201, 1237, 1283, 1307, 1327, 1381, 1433, 1439, 1459, 1493, 1499, 1559, 1613, 1627, 1637, 1709, 1889, 2003, 2039, 2099, 2179

Offset

1,1

Links

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

Mathematica

wpqQ[listn_]:=Module[{d=Differences[listn]}, d[[1]]<d[[2]]&& d[[2]]<d[[3]]]; Transpose[Select[Partition[Prime[Range[500]], 4, 1], wpqQ]] [[3]]  (* Harvey P. Dale, Apr 11 2011 *)

Crossrefs

Cf. A051635, A054800-A054840.

Sequence in context: A338386 A090191 A281022 * A195058 A352291 A039374

Adjacent sequences: A054818 A054819 A054820 * A054822 A054823 A054824

Keyword

nonn

Author

Henry Bottomley, Apr 10 2000

Status

approved