|
| |
|
|
A112786
|
|
Starting from P0=3, the sequence list the minimum prime P1>P0 for which the expression P=P1+P0+1 is also a prime. The search then restarts from P1.
|
|
0
| |
|
|
3, 7, 11, 17, 19, 23, 29, 31, 41, 47, 53, 59, 67, 71, 79, 83, 89, 101, 109, 113, 127, 149, 157, 173, 179, 193, 227, 229, 233, 257, 263, 277, 293, 307, 311, 331, 359, 367, 383, 389, 397, 431, 449, 457, 461, 467, 479, 487, 503, 509, 521, 541, 587, 593, 599, 601
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
EXAMPLE
| 3+5+1=9 is not a prime.
3+7+1=11 is a prime: 7 is in the sequence.
7+11+1=19 is a prime: 11 is in the sequence.
11+13+1=25 is not a prime.
11+17+1=29 is a prime: 17 is in the sequence.
|
|
|
MAPLE
| P:=proc(n) local i, w; w:=3; for i from 3 by 1 to n do if isprime(w+ithprime(i)+1) then print(ithprime(i)); w:=ithprime(i); fi; od; end: P(500);
|
|
|
MATHEMATICA
| f[n_]:=Module[{p=NextPrime[n]}, While[!PrimeQ[n+p+1], p=NextPrime[p]]; p]; Join[{p=3}, Table[p=f[p], {n, 60}]] (* From Vladimir Joseph Stephan Orlovsky, Feb 07 2012 *)
|
|
|
CROSSREFS
| Cf. A000040
Sequence in context: A053982 A118000 A121640 * A023211 A038981 A065376
Adjacent sequences: A112783 A112784 A112785 * A112787 A112788 A112789
|
|
|
KEYWORD
| easy,nonn,changed
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 02 2006
|
|
|
EXTENSIONS
| More terms from Paolo P. Lava & Giorgio Balzarotti (paoloplava(AT)gmail.com), Mar 07 2007
Edited by N. J. A. Sloane (njas(AT)research.att.com) at the suggestion of Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jun 07 2007
|
| |
|
|
