login
A100802(m) where A100802(m) > A100802(m-1).
1

%I #6 Dec 05 2013 19:57:00

%S 1,3,3,7,3,7,3,7,11,3,11,7,3,7,11,11,3,11,7,3,11,7,11,15,7,3,7,3,7,27,

%T 7,11,3,19,3,11,11,7,11,11,3,19,3,7,3,23,23,7,3,7,11,3,19,11,11,11,3,

%U 11,7,3,19,27,7,3,7,27,11,19,3,7,11,15,11,11,7,11,15,7,15,19,3,19,3,11

%N A100802(m) where A100802(m) > A100802(m-1).

%F a(n) = A100802(2prime(n)+1) = 2(prime(n+1)-prime(n))-1 = 2*A001223(n)-1.

%t Table[2*(Prime[n + 1] - Prime[n]) - 1, {n, 100}]

%t 2(Last[#]-First[#])-1&/@Partition[Prime[Range[90]],2,1] (* _Harvey P. Dale_, Jul 28 2012 *)

%Y Cf. A100802.

%K nonn,easy

%O 1,2

%A _Amarnath Murthy_, Dec 18 2004

%E Edited and extended by _Ray Chandler_, Jan 19 2005