OFFSET
1,1
COMMENTS
Also, first differences of 2^prime(n) = A034785(n). - Wesley Ivan Hurt, Jul 02 2014
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..59
FORMULA
MAPLE
A139238:=n->2^ithprime(n+1)-2^ithprime(n): seq(A139238(n), n=1..20); # Wesley Ivan Hurt, Jul 02 2014
MATHEMATICA
Table[2^Prime[n + 1] - 2^Prime[n], {n, 20}] (* Wesley Ivan Hurt, Jul 02 2014 *)
PROG
(PARI) for(n=1, 20, d=2^prime(n+1)-2^prime(n); print1(d, ", ")) \\ Felix Fröhlich, Jun 30 2014
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Apr 19 2008
EXTENSIONS
a(10)-a(19) from Felix Fröhlich, Jun 30 2014
STATUS
approved