|
| |
|
|
A126148
|
|
Let p and q be consecutive primes. If pq+p+q is a prime, adjoin p to the sequence.
|
|
9
| |
|
|
2, 3, 5, 11, 13, 17, 19, 23, 41, 43, 47, 59, 79, 83, 89, 101, 109, 113, 137, 163, 167, 173, 223, 229, 257, 311, 383, 389, 409, 419, 439, 443, 479, 521, 547, 557, 577, 593, 613, 643, 647, 683, 773, 797, 809, 811, 853, 953, 983, 1019, 1049, 1097, 1109, 1151, 1171
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| Take p = 13 and q = 17: product is 221 and sum is 30; add them to get 251, a prime. So 13 is a member.
|
|
|
MAPLE
| a:=proc(n) if isprime(ithprime(n)*ithprime(n+1)+ithprime(n)+ithprime(n+1))=true then ithprime(n) else fi end: seq(a(n), n=1..250); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Mar 08 2007
|
|
|
MATHEMATICA
| Prime@Select[Range[200], PrimeQ[Prime[ # ]Prime[ # + 1] + Prime[ # ] + Prime[ # + 1]] &] (*Chandler*)
|
|
|
CROSSREFS
| Cf. A096342, A000040, A001043, A006094, A126148, A126199, A096342.
Sequence in context: A115653 A042997 A171600 * A038933 A042998 A091317
Adjacent sequences: A126145 A126146 A126147 * A126149 A126150 A126151
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| M. Bergot (thekingfishb(AT)yahoo.ca), Mar 07 2007
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Emeric Deutsch (deutsch(AT)duke.poly.edu) and Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 07 2007
|
| |
|
|
