This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A133478 a(n) = smallest semiprime s such that s + n is the next semiprime and there is no prime between s and s + n. 5
 9, 49, 62, 403, 341, 843, 6722, 3473, 2869, 14059, 18467, 26603, 166126, 41779, 74491, 192061, 463161, 226489, 344119, 517421, 943606, 2171131, 4577519, 584213, 2560177, 4356633, 8367139, 11174753, 13191293, 7319797, 27841051, 10644122, 13683034, 29492893, 47735342, 26837363, 63305661, 90455097, 189662206, 120175651 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Robert G. Wilson v, Table of n, a(n) for n = 1..60. EXAMPLE a(1)=9 because there is no prime between 9 and 10. a(2)=49 because there is no prime between 49 and 51. a(3)=62 because there is no prime between 62 and 65. MATHEMATICA nn = 20; sp1 = 4; t = Table[0, {nn}]; found = 0; fQ[s_] := Union@ PrimeQ[s] == {False}; NextSemiPrime[n_, k_: 1] := Block[{c = 0, sgn = Sign[k]}, sp = n + sgn; While[c < Abs[k], While[ PrimeOmega[sp] != 2, If[sgn < 0, sp--, sp++]]; If[ sgn < 0, sp--, sp++]; c++]; sp + If[sgn < 0, 1, -1]]; While[found < nn, sp2 = NextSemiPrime[sp1]; d = sp2 - sp1; If[d <= nn && t[[d]] == 0 && fQ[Range[sp1, sp2]], t[[d]] = sp1; found++; Print[{d, sp1}]]; sp1 = sp2]; t (* Robert G. Wilson v, Jun 13 2013 *) CROSSREFS Sequence in context: A181607 A012260 A262537 * A032589 A137175 A028375 Adjacent sequences:  A133475 A133476 A133477 * A133479 A133480 A133481 KEYWORD nonn AUTHOR Jack Brennen and Zak Seidov, Dec 23 2007 EXTENSIONS a(37)-a(40) from Jacques Tramu, Dec 23 2007 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 May 22 14:32 EDT 2019. Contains 323480 sequences. (Running on oeis4.)