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

3, 3, 5, 5, 11, 11, 17, 17, 19, 29, 27, 35, 41, 41, 43, 49, 59, 57, 65, 71, 69, 77, 79, 83, 95, 101, 101, 107, 107, 101, 125, 127, 137, 131, 149, 147, 153, 161, 163, 169, 179, 173, 191, 191, 197, 189, 201, 221, 227, 227, 229, 239, 233, 247, 253, 259, 269, 267, 275

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Maple

a:=n->2*ithprime(n)-ithprime(n+1)+2: seq(a(n), n=1..75); # Emeric Deutsch, Nov 28 2006

Mathematica

2#[[1]]-#[[2]]+2&/@Partition[Prime[Range[60]], 2, 1] (* Harvey P. Dale, May 25 2012 *)

Prog

(PARI) {p=2; q=3; while(p<280, print1(2*p-q+2, ", "); p=q; q=nextprime(q+1))} \\ Klaus Brockhaus, Nov 28 2006

Crossrefs

Cf. A125631.

Sequence in context: A078752 A343045 A343041 * A124114 A077893 A077953

Adjacent sequences: A124112 A124113 A124114 * A124116 A124117 A124118

Keyword

nonn

Author

Giovanni Teofilatto, Nov 28 2006

Extensions

Edited, corrected and extended by Klaus Brockhaus and Emeric Deutsch, Nov 28 2006

Status

approved