



3, 5, 7, 11, 13, 17, 19, 29, 31, 41, 43, 59, 61, 71, 73, 101, 103, 107, 109, 137, 139, 149, 151, 179, 181, 191, 193, 197, 199, 227, 229, 239, 241, 269, 271, 281, 283, 311, 313, 347, 349, 419, 421, 431, 433, 461, 463, 521, 523, 569, 571, 599, 601, 617, 619, 641, 643
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Union of A001359 and A006512.
The only twin primes that are Fibonacci numbers are 3, 5 and 13 [MacKinnon].  Emeric Deutsch, Apr 24 2005
(p, p+2) are twin primes if and only if p + 2 can be represented as the sum of two primes. Brun (1919): Even if there are infinitely many twin primes, the series of all twin prime reciprocals does converges against Brun's constant (A065421). Clement (1949): (n, n+2) are twin primes if and only if (4*(n1)!+n+4) mod n(n+2) = 0.  Stefan Steinerberger, Dec 04 2005
A164292(a(n)) = 1. [Reinhard Zumkeller, Mar 29 2010]
The 100355digit numbers, 65516468355 ยท 2^333333 +/ 1, are currently the largest known twin primes. They were discovered by Twin Prime Search and Primegrid in August 2009.  Paul Muljadi, Mar 07 2011


REFERENCES

P. Ribenboim, The New Book of Prime Number Records, SpringerVerlag, p. 259265.


LINKS

T. D. Noe, Table of n, a(n) for n = 1..10000
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972, p. 870.
J. P. Delahaye, Premiers jumeaux: freres ennemis? [Twin primes: Enemy Brothers?], Pour la science, No. 260 (Juin 1999), 102106.
Harvey Dubner, Twin Prime Statistics, Journal of Integer Sequences, Vol. 8 (2005), Article 05.4.2.
J. C. Evard, Twin primes and their applications [Cached copy on the Wayback Machine]
J. C. Evard, Twin primes and their applications [Local cached copy]
J. C. Evard, Twin primes and their applications [Pdf file of cached copy]
Andrew Granville, Primes in intervals of bounded length
N. MacKinnon, Problem 10844, Amer. Math. Monthly 109, (2002), p. 78.
James Maynard, Small gaps between primes, Annals of Mathematics, to appear.
Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.
D. H. J. Polymath, New equidistribution estimates of Zhang type, and bounded gaps between primes.
D. H. J. Polymath, Variants of the Selberg sieve, and bounded intervals containing many primes. In preparation.
Eric Weisstein's World of Mathematics, Twin Primes
Yitang Zhang, Bounded gaps between primes, Annals of Mathematics.
Index entries for primes, gaps between


MAPLE

A001097 := proc(n)
option remember;
if n = 1 then
3;
else
for a from procname(n1)+1 do
if isprime(a) and ( isprime(a2) or isprime(a+2) ) then
return a;
end if;
end do:
end if;
end proc: # R. J. Mathar, Feb 19 2015


MATHEMATICA

Select[ Prime[ Range[120]], PrimeQ[ #  2]  PrimeQ[ # + 2] &] (* Robert G. Wilson v, Jun 09 2005 *)
Union[Flatten[Select[Partition[Prime[Range[200]], 2, 1], #[[2]]#[[1]] == 2&]]] (* Harvey P. Dale, Aug 19 2015 *)


PROG

(PARI) isA001097(n) = (isprime(n) & (isprime(n+2)  isprime(n2))) \\ Michael B. Porter, Oct 29 2009
(PARI) a(n)=if(n==1, return(3)); my(p); forprime(q=3, default(primelimit), if(qp==2 && (n=2)<0, return(if(n==1, q, p))); p=q) \\ Charles R Greathouse IV, Aug 22 2012
(Haskell)
a001097 n = a001097_list !! (n1)
a001097_list = filter ((== 1) . a164292) [1..]
 Reinhard Zumkeller, Feb 03 2014, Nov 27 2011


CROSSREFS

Cf. A070076, A001359, A006512, A164292. See A077800 for another version.
Sequence in context: A045393 A132143 A239879 * A117243 A179679 A059362
Adjacent sequences: A001094 A001095 A001096 * A001098 A001099 A001100


KEYWORD

nonn,core,nice


AUTHOR

N. J. A. Sloane.


STATUS

approved



