OFFSET
1,1
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 1..100
MAPLE
seq( (2^ithprime(x)-ithprime(x)), x=1..20);
MATHEMATICA
f[n_]:=(2^Prime[n]-Prime[n]); Array[f, 4!, 1] (* Vladimir Joseph Stephan Orlovsky, Oct 17 2009 *)
PROG
(Magma) [2^p - p: p in PrimesUpTo(80)]; // Vincenzo Librandi, Jun 03 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Jorge Coveiro, Dec 26 2004
STATUS
approved