|
Search: id:A118072
|
|
|
| A118072 |
|
Primes which are sum of twin prime pair - 1. |
|
+0
1
|
|
| 7, 11, 23, 59, 83, 359, 383, 479, 563, 839, 863, 1283, 1319, 1619, 2039, 2063, 2099, 2459, 2579, 2903
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Subset of A092737 - Paolo P. Lava (ppl(AT)spl.at), Dec 21 2007
|
|
FORMULA
|
{A001359(k) + A006512(k) - 1} INTERSECT {A000040}. {A054735(k) - 1} INTERSECT {A000040}. {2*A001359(k) + 1} INTERSECT {A000040}.
|
|
EXAMPLE
|
a(1) = 7 = 3 + 5 - 1 where (3,5) is a twin prime pair.
a(2) = 11 = 5 + 7 - 1 where (5,7) is a twin prime pair.
|
|
MAPLE
|
P:=proc(n) local a, i; for i from 1 by 1 to n do if ithprime(i+1)-ithprime(i)=2 then a:=ithprime(i+1)+ithprime(i)-1; if isprime(a) then print(a); fi; fi; od; end: P(300); - Paolo P. Lava (ppl(AT)spl.at), Dec 21 2007
|
|
MATHEMATICA
|
lst={}; d=2; Do[p1=Prime[n]; p2=Prime[n+1]; p=p1+p2-1; If[PrimeQ[p]&&p2-p1==d, AppendTo[lst, p]], {n, 10^3}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 14 2008]
|
|
CROSSREFS
|
Cf. A000040, A001359, A005384, A006512, A054735.
Sequence in context: A079138 A111671 A140111 this_sequence A076855 A027830 A134043
Adjacent sequences: A118069 A118070 A118071 this_sequence A118073 A118074 A118075
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Jonathan Vos Post (jvospost2(AT)yahoo.com), May 11 2006
|
|
|
Search completed in 0.002 seconds
|
