The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A177949 First string of 43 consecutive composite numbers. 0
 15684, 15685, 15686, 15687, 15688, 15689, 15690, 15691, 15692, 15693, 15694, 15695, 15696, 15697, 15698, 15699, 15700, 15701, 15702, 15703, 15704, 15705, 15706, 15707, 15708, 15709, 15710, 15711, 15712, 15713, 15714, 15715, 15716, 15717, 15718, 15719, 15720, 15721, 15722, 15723, 15724, 15725, 15726 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MAPLE P:= select(isprime, [seq(i, i=3..20000, 2)]): G:= P[2..-1]-P[1..-2]: i0:= ListTools:-SelectFirst(j -> G[j]>=42, [\$1..nops(G)]): \$ P[i0]+1 .. P[i0]+43; # Robert Israel, Jul 05 2017 MATHEMATICA rPrimeNext[n_]:=Module[{k}, k=n+1; While[PrimeQ[k]||GCD[n, k]!=1, k++ ]; k]; a=1; lst={a}; Do[AppendTo[lst, a=rPrimeNext[a]], {n, 0, 2*7!}]; lst1=lst; q=41; lst={}; Do[If[lst1[[n+q]]-lst1[[n]]==q, AppendTo[lst, lst1[[n]]]], {n, 0, Length[lst1]-q}]; lst; a=FromDigits[lst]; Table[n, {n, a, a+q}] CROSSREFS Cf. A051884 Sequence in context: A109567 A075050 A134121 * A204728 A298758 A205289 Adjacent sequences:  A177946 A177947 A177948 * A177950 A177951 A177952 KEYWORD nonn,fini,full AUTHOR Vladimir Joseph Stephan Orlovsky, May 15 2010 EXTENSIONS Edited by Robert Israel, Jul 05 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 19 13:08 EST 2021. Contains 340269 sequences. (Running on oeis4.)