|
%I #7 Nov 21 2013 12:47:23
%S 23,47,89,113,233,293,317,353,359,389,409,449,467,509,577,647,683,691,
%T 839,863,887,919,1039,1069,1097,1201,1237,1283,1307,1327,1381,1433,
%U 1439,1459,1493,1499,1559,1613,1627,1637,1709,1889,2003,2039,2099,2179
%N Third term of weak prime quartet: p(m-1)-p(m-2) < p(m)-p(m-1) < p(m+1)-p(m).
%t 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 *)
%Y Cf. A051635, A054800-A054840.
%K nonn
%O 1,1
%A _Henry Bottomley_, Apr 10 2000
|
