|
| |
|
|
A014574
|
|
Average of twin prime pairs.
|
|
164
| |
|
|
4, 6, 12, 18, 30, 42, 60, 72, 102, 108, 138, 150, 180, 192, 198, 228, 240, 270, 282, 312, 348, 420, 432, 462, 522, 570, 600, 618, 642, 660, 810, 822, 828, 858, 882, 1020, 1032, 1050, 1062, 1092, 1152, 1230, 1278, 1290, 1302, 1320, 1428, 1452, 1482, 1488, 1608
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| With an initial 1 added, this is the complement of the closure of {2} under a*b+1 and a*b-1. - Frank Adams-Watters (FrankTAW(AT)Netscape.net), Jan 11 2006
Also the square root of the product of twin prime pairs + 1. Two consecutive odd numbers can be written as 2k+1,2k+3. Then (2k+1)(2k+3)+1 = 4(k^2+2k+1) = 4(k+1)^2, a perfect square. Since twin prime pairs are two consecutive odd numbers, the statement is true for all twin prime pairs. - Cino Hilliard (hillcino368(AT)gmail.com), May 03 2006
Or, single (or isolated) composites. Nonprimes k such that neither k-1 nor k+1 is nonprime. - Juri-Stepan Gerasimov, Aug 11 2009
Numbers n such that sigma(n-1)=phi(n+1). [From Farideh Firoozbakht (mymontain(AT)yahoo.com), Jul 04 2010]
|
|
|
REFERENCES
| Archimedeans Problems Drive, Eureka, 30 (1967).
|
|
|
LINKS
| C. K. Caldwell, Twin Primes
C. K. Caldwell, Twin primes
Eric Weisstein's World of Mathematics, Twin Primes
T. D. Noe, Table of n, a(n) for n = 1..10000
|
|
|
FORMULA
| a(n) = (A001359(n) + A006512(n))/2 = 2*A040040(n) = A054735(n)/2 = A111046(n)/4.
a(n) = A129297(n+4). - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Apr 09 2007
a(n) = A141515(k) iff A141515(k) -/+1 are both prime. [From Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Sep 19 2008]
|
|
|
MAPLE
| P := select(isprime, [$1..1609]): map(p->p+1, select(p->member(p+2, P), P)); # Peter Luschny, Mar 03 2011
A014574 := proc(n) option remember; local p ; if n = 1 then 4 ; else p := nextprime( procname(n-1) ) ; while not isprime(p+2) do p := nextprime(p) ; od ; return p+1 ; end if ; end proc: # R. J. Mathar, Jun 11 2011
|
|
|
MATHEMATICA
| Select[Table[Prime[n] + 1, {n, 260}], PrimeQ[ # + 1] &] (* Ray Chandler (rayjchandler(AT)sbcglobal.net), Oct 12 2005 *)
|
|
|
PROG
| (PARI) p=2; forprime(q=3, 1e4, if(q-p==2, print1(p+1", ")); p=q) \\ Charles R Greathouse IV, Jun 10 2011
|
|
|
CROSSREFS
| Cf. A001359, A002822, A006512, A037074, A040040, A054735, A077800, A111046.
Sequence in context: A074998 A061715 A072570 * A034425 A073123 A079865
Adjacent sequences: A014571 A014572 A014573 * A014575 A014576 A014577
|
|
|
KEYWORD
| nonn,easy,nice
|
|
|
AUTHOR
| R. K. Guy, N. J. A. Sloane (njas(AT)research.att.com), Eric Weisstein (eric(AT)weisstein.com)
|
|
|
EXTENSIONS
| Offset changed to 1. - R. J. Mathar, Jun 11 2011
|
| |
|
|
