A262021 a(n) = prime(prime(n)) - n.

2, 3, 8, 13, 26, 35, 52, 59, 74, 99, 116, 145, 166, 177, 196, 225, 260, 265, 312, 333, 346, 379, 408, 437, 484, 521, 536, 559, 570, 587, 678, 707, 740, 763, 824, 841, 882, 929, 952, 991, 1022, 1045, 1110, 1127, 1156, 1171, 1250, 1361, 1384, 1397

Offset

1,1

Comments

Inspired by A014689.

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Formula

a(n) = A006450(n) - n.

a(n) ~ n log^2 n. - Charles R Greathouse IV, Sep 08 2015

Example

For n = 1, a(n) = prime(prime(n)) - n = prime(prime(1)) - 1 = 2.

Mathematica

Table[Prime[Prime[n]] - n, {n, 50}] (* Vincenzo Librandi, Sep 09 2015 *)

Prog

(PARI)
a(n) = prime(prime(n)) - n;
vector(50, n, a(n))
(Magma) [NthPrime(NthPrime(n))-n: n in [1..50]]; // Vincenzo Librandi, Sep 09 2015

Crossrefs

Cf. A000027, A006450, A014689.

Sequence in context: A147357 A004138 A213046 * A221181 A116503 A291589

Adjacent sequences: A262018 A262019 A262020 * A262022 A262023 A262024

Keyword

nonn,easy

Author

Altug Alkan, Sep 08 2015

Status

approved