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

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, 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, 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

Offset

1,2

Links

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

Formula

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

Mathematica

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 *)

Crossrefs

Cf. A100802.

Sequence in context: A249382 A317929 A285387 * A036840 A159913 A183061

Adjacent sequences: A100800 A100801 A100802 * A100804 A100805 A100806

Keyword

nonn,easy

Author

Amarnath Murthy, Dec 18 2004

Extensions

Edited and extended by Ray Chandler, Jan 19 2005

Status

approved