Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A054693
n consecutive primes differ by 6 or more starting at a(n).
0
23, 47, 241, 241, 523, 677, 677, 677, 2861, 10733, 10733, 13421, 13421, 13421, 13421, 13421, 13421, 13421, 13421, 13421, 13421, 13421, 13421, 61631, 61631, 61631, 61631, 61631, 61631, 333793, 333793, 333793, 333793, 333793, 333793
OFFSET
2,1
MATHEMATICA
With[{prs=Prime[Range[30000]]}, First/@Flatten[Table[Select[ Partition[ prs, n, 1], Min[ Differences[#]]>5&, 1], {n, 2, 40}], 1]] (* Harvey P. Dale, May 18 2014 *)
CROSSREFS
Sequence in context: A140618 A042052 A136030 * A180945 A052229 A054203
KEYWORD
nonn
AUTHOR
Jeff Burch, Apr 19 2000
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), Nov 09 2000
STATUS
approved