A033843 Number of twin primes < 2^n.
0, 1, 2, 3, 5, 7, 10, 17, 24, 36, 62, 107, 177, 290, 505, 860, 1526, 2679, 4750, 8535, 15500, 27995, 50638, 92246, 168617, 309561, 571313, 1056281, 1961080, 3650557, 6810670, 12739574, 23878645, 44849427, 84384508, 159082253, 300424743, 568237005, 1076431099, 2042054332, 3879202049
Offset: 1
Links
Programs
-
Mathematica
a[n_] := Count[Range[2^n], ?(And @@ PrimeQ[# + {-1, 1}] &)]; Array[a, 20] (* _Amiram Eldar, Jul 18 2025 *)
Extensions
a(38) from Alex Ratushnyak, Jun 07 2013
a(39)-a(41) from Hugo Pfoertner, Feb 07 2024
Comments