|
|
A095011
|
|
Number of 8k+5 primes (A007521) in range ]2^n,2^(n+1)].
|
|
4
|
|
|
0, 1, 1, 1, 3, 2, 6, 11, 20, 35, 63, 118, 216, 407, 759, 1424, 2686, 5094, 9652, 18472, 35068, 67068, 128421, 246403, 473647, 911479, 1757076, 3390256, 6552075, 12675294, 24545280, 47583568, 92332958, 179313476, 348551899, 678031524, 1319932086, 2571422341
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|