|
| |
|
|
A133478
|
|
a(n) = smallest semiprime s1 such that there is no prime between s1 and s2=nextsemiprime(s1)=s1+n.
|
|
2
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Robert G. Wilson v, (rgwv@rgwv.com), Table of n, a(n) for n = 1..60 . [From Robert G. Wilson v (rgwv(AT)rgwv.com), May 20 2010]
|
|
|
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
| sp = Import["~/b001358.txt", "Table"][[All, 2]]
Block[{n = 1, result = {}, tmp},
While[(tmp = Select[sp,
MemberQ[sp, #1 + n] &&
And @@ (FreeQ[sp, #1] & ) /@
Range[ #1 + 1, #1 + n - 1 ] && Select[ Range[ #1, #1 + n ], PrimeQ, 1 ] == {} &, 1 ]) != {},
result = Join[result, tmp]; n++ ];
result] (Peter Pein (petsie(AT)dordos.net)), Dec 23 2007
|
|
|
CROSSREFS
| Sequence in context: A072461 A181607 A012260 * A032589 A137175 A028375
Adjacent sequences: A133475 A133476 A133477 * A133479 A133480 A133481
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jack Brennen (jb(AT)brennen.net) and Zak Seidov (zakseidov(AT)yahoo.com), Dec 23 2007
|
|
|
EXTENSIONS
| a(37)-a(40) from Jacques Tramu (jacques.tramu(AT)echolalie.com), Dec 23 2007
|
| |
|
|
