OFFSET
1,6
LINKS
MATHEMATICA
Table[Count[Range[2^n, 2^(n+1)], _?(PrimeQ[#]&&Mod[#, 8]==1&)], {n, 20}] (* Harvey P. Dale, Dec 19 2025 *)
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
