Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A100803
A100802(m) where A100802(m) > A100802(m-1).
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
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
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, Dec 18 2004
EXTENSIONS
Edited and extended by Ray Chandler, Jan 19 2005
STATUS
approved