OFFSET
1,4
LINKS
MATHEMATICA
Module[{nn = 21, s}, s = Select[8 Range[0, 2^nn] + 7, PrimeQ]; Table[Count[s, _?(2^n < # < 2^(n + 1) &)], {n, nn}]] (* Michael De Vlieger, Jul 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen and Labos Elemer, Jun 01 2004
EXTENSIONS
a(34)-a(38) from Amiram Eldar, Jun 12 2024
STATUS
approved