login
A273497
Density of twin primes: the number of primes that are twin primes among the first 10^n primes.
0
8, 49, 347, 2539, 20499, 172053, 1477193, 12994813, 116094359, 1049467021, 9579839305, 88147018203
OFFSET
1,1
EXAMPLE
In the first 100 primes (up to and including 541) there are 49 twin primes: 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
MATHEMATICA
Table[Count[Prime[Range[10^n]], _?(AnyTrue[#+{2, -2}, PrimeQ]&)], {n, 8}] (* The program uses the AnyTrue function from Mathematica version 10 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Harvey P. Dale, May 23 2016
EXTENSIONS
a(9)-a(11) from Giovanni Resta, May 23 2016
a(12) from Giovanni Resta, May 25 2016
STATUS
approved