1,2

Table of n, a(n) for n=1..84.

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

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

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

Cf. A100802.

Sequence in context: A249806 A249382 A285387 * A036840 A159913 A183061

Adjacent sequences: A100800 A100801 A100802 * A100804 A100805 A100806

nonn,easy

Amarnath Murthy, Dec 18 2004

Edited and extended by Ray Chandler, Jan 19 2005

approved