OFFSET
1,10
COMMENTS
MATHEMATICA
f[n_] := PrimePi[2^n + 2^(n - 1)] - PrimePi[2^n] - PrimePi[2^(n + 1)] + PrimePi[2^n + 2^(n - 1) - 1]; Array[f, 40]
CROSSREFS
KEYWORD
base,sign
AUTHOR
Robert G. Wilson v, Jan 24 2006
STATUS
approved