OFFSET
1,5
LINKS
MATHEMATICA
Module[{nn = 21, s}, s = Select[8 Range[0, 2^nn] + 5, 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