%I
%S 17,41,79,107,227,281,311,347,349,379,397,439,461,499,569,641,673,677,
%T 827,857,881,907,1031,1061,1091,1187,1229,1277,1301,1319,1367,1427,
%U 1429,1451,1487,1489,1549,1607,1619,1621,1697,1877,1997,2027,2087,2153
%N First term of weak prime quartet: p(m+1)p(m) < p(m+2)p(m+1) < p(m+3)p(m+2).
%H Harvey P. Dale, <a href="/A054819/b054819.txt">Table of n, a(n) for n = 1..1000</a>
%t wpqQ[lst_]:=Module[{diffs=Differences[lst]},diffs[[1]]<diffs[[2]]<diffs[[3]]]; Transpose[Select[Partition[Prime[ Range[400]], 4,1],wpqQ]][[1]] (* _Harvey P. Dale_, Jun 12 2012 *)
%Y Cf. A051635, A054800A054840.
%K nonn
%O 1,1
%A _Henry Bottomley_, Apr 10 2000
