OFFSET
1,3
MATHEMATICA
f[n_] := Block[{p = Prime@n}, (2^p - p - 2)/p]; Array[f, 15]
Table[(2^p-p-2)/p, {p, Prime[Range[20]]}] (* Harvey P. Dale, Aug 15 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Tanin (Mirza Sabbir Hossain Beg) (mirzasabbirhossainbeg(AT)yahoo.com), Aug 24 2009
EXTENSIONS
Edited by N. J. A. Sloane, Aug 24 2009
Extended and offset changed by T. D. Noe and Robert G. Wilson v, Aug 24 2009
STATUS
approved