login
A054828
First term of weak prime sextet: p(m+1)-p(m) < p(m+2)-p(m+1) < p(m+3)-p(m+2) < p(m+4)-p(m+3) < p(m+5)-p(m+4).
3
2903, 13463, 13901, 14947, 15373, 15377, 21397, 21557, 21859, 28277, 30869, 33199, 35591, 37691, 42221, 42569, 45821, 55661, 64661, 64919, 64921, 68207, 68209, 68897, 68899, 73939, 74201, 78577, 83089, 85513, 87313, 88001, 90907
OFFSET
1,1
LINKS
MATHEMATICA
Transpose[Select[Partition[Prime[Range[9000]], 6, 1], AllTrue[ Differences[ #, 2], Positive]&]] [[1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 12 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Apr 10 2000
STATUS
approved