A168245 prime(prime(n+1))-2*prime(n).

1, 5, 7, 17, 19, 33, 33, 45, 63, 69, 95, 105, 109, 125, 147, 171, 165, 209, 219, 225, 255, 273, 295, 331, 353, 361, 381, 385, 399, 483, 485, 511, 523, 581, 579, 617, 653, 665, 697, 717, 729, 791, 789, 815, 823, 899, 987, 987, 993, 1013, 1033, 1045, 1115, 1119

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Formula

a(n) = A006450(n+1) - A100484(n).

Mathematica

Table[Prime[Prime[n+1]]-2Prime[n], {n, 60}] (* Harvey P. Dale, Jun 20 2014 *)

Prog

(Magma) [NthPrime(NthPrime(n+1))-2*NthPrime(n): n in [1..60]]; // Vincenzo Librandi, Jun 21 2014

Crossrefs

Sequence in context: A185022 A196670 A075304 * A242929 A128490 A023519

Adjacent sequences: A168242 A168243 A168244 * A168246 A168247 A168248

Keyword

nonn,easy

Author

Juri-Stepan Gerasimov, Nov 21 2009

Extensions

813 replaced by 823 by R. J. Mathar, Nov 22 2009

Status

approved