A139238 - OEIS

%I #13 Jul 02 2014 00:46:24

%S 4,24,96,1920,6144,122880,393216,7864320,528482304,1610612736,

%T 135291469824,2061584302080,6597069766656,131941395333120,

%U 8866461766385664,567453553048682496,1729382256910270464,145268109580462718976,2213609288845146193920

%N First differences of Mersenne numbers A001348.

%C Also, first differences of 2^prime(n) = A034785(n). - _Wesley Ivan Hurt_, Jul 02 2014

%H Felix Fröhlich, <a href="/A139238/b139238.txt">Table of n, a(n) for n = 1..59</a>

%F a(n) = A001348(n+1) - A001348(n).

%F a(n) = A034785(n+1) - A034785(n). - _Wesley Ivan Hurt_, Jul 02 2014

%e a(2)=24 because A001348(2)=7 and A001348(2+1)=31 then 31-7 = 24.

%p A139238:=n->2^ithprime(n+1)-2^ithprime(n): seq(A139238(n), n=1..20); # _Wesley Ivan Hurt_, Jul 02 2014

%t Table[2^Prime[n + 1] - 2^Prime[n], {n, 20}] (* _Wesley Ivan Hurt_, Jul 02 2014 *)

%o (PARI) for(n=1, 20, d=2^prime(n+1)-2^prime(n); print1(d, ", ")) \\ _Felix Fröhlich_, Jun 30 2014

%Y Cf. A001348, A139228, A139231, A139234, A139239, A139240, A139241, A139242, A139243.

%Y Cf. A034785.

%K easy,nonn

%O 1,1

%A _Omar E. Pol_, Apr 19 2008

%E a(10)-a(19) from _Felix Fröhlich_, Jun 30 2014