A054693 - OEIS

%I #5 May 18 2014 14:39:00

%S 23,47,241,241,523,677,677,677,2861,10733,10733,13421,13421,13421,

%T 13421,13421,13421,13421,13421,13421,13421,13421,13421,61631,61631,

%U 61631,61631,61631,61631,333793,333793,333793,333793,333793,333793

%N n consecutive primes differ by 6 or more starting at a(n).

%t 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 *)

%K nonn

%O 2,1

%A _Jeff Burch_, Apr 19 2000

%E More terms from Larry Reeves (larryr(AT)acm.org), Nov 09 2000