|
| |
|
|
A119912
|
|
Scan A076368, discard any nonprimes.
|
|
1
| |
|
|
2, 3, 3, 5, 3, 5, 3, 5, 7, 3, 7, 5, 3, 5, 7, 7, 3, 7, 5, 3, 7, 5, 7, 5, 3, 5, 3, 5, 5, 7, 3, 11, 3, 7, 7, 5, 7, 7, 3, 11, 3, 5, 3, 13, 13, 5, 3, 5, 7, 3, 11, 7, 7, 7, 3, 7, 5, 3, 11, 5, 3, 5, 7, 11, 3, 5, 7, 7, 7, 5, 7, 5, 11, 3, 11, 3, 7, 5, 7, 5, 3, 5, 13, 5, 5, 7, 13, 3, 19, 7, 11, 7, 7, 3, 7, 11, 7, 7, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Primes that are one greater than the difference between consecutive primes.
|
|
|
LINKS
| Cino Hilliard, Frequency of primes.
|
|
|
EXAMPLE
| The first 4 consecutive prime pairs are (2,3),(3,5),(5,7),(7,11). The differences + 1 are the primes 2,3,3,5, the first four entries in the sequence.
|
|
|
MAPLE
| P:=proc(n) local cont, i, j, k, w; for i from 1 by 1 to n do k:=ithprime(i); w:=ithprime(i+1); if isprime(w-k+1) then print(w-k+1); fi; od; end: P(10000);
|
|
|
PROG
| (PARI) diffp1p2(n) = { local(p1, p2, y); for(x=1, n, p1=prime(x); p2=prime(x+1); y=(p2-p1)+1; if(isprime(y), print1(y", ") ) ) } - Cino Hilliard (hillcino368(AT)hotmail.com), May 23 2007
|
|
|
CROSSREFS
| Cf. A076368.
Sequence in context: A069461 A063256 A131320 * A076368 A071049 A171637
Adjacent sequences: A119909 A119910 A119911 * A119913 A119914 A119915
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Paolo P. Lava & Giorgio Balzarotti (paoloplava(AT)gmail.com), Aug 02 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Jul 02 2008 at the suggestion of R. J. Mathar
|
| |
|
|
