A255000 Prime(n + d(n)), with d(n) = prime(n+1) - prime(n), for n >= 1.

3, 7, 11, 19, 17, 29, 23, 37, 47, 37, 59, 53, 47, 61, 73, 79, 67, 89, 83, 79, 103, 101, 109, 131, 109, 107, 127, 113, 137, 193, 149, 163, 149, 193, 157, 181, 191, 181, 197, 199, 191, 239, 197, 223, 211, 271, 277, 239, 233, 251, 269, 251, 307, 281, 283, 293

Offset

1,1

Comments

This sequence is not a mere permutation of primes, for some of them will be excluded from it, e.g., 5, 13, 31, 71, 97.

Links

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

Formula

a(n) = prime(n + prime(n + 1) - prime(n)) = A000040(n + A001223(n)).

Example

a(1) = prime(1 + prime(2) - prime(1)) = prime(1 + 3 - 2) = prime(2) = 3.

Mathematica

Table[Prime[n + Prime[n + 1] - Prime[n]], {n, 100}]

Prog

(PARI) vector(100, n, prime(n+prime(n+1)-prime(n))) \\ Derek Orr, Feb 19 2015
(Magma) [NthPrime(n+NthPrime(n+1)-NthPrime(n)): n in [1..60]]; // Vincenzo Librandi, Feb 23 2015
(Sage) [nth_prime(n+nth_prime(n+1)-nth_prime(n)) for n in (1..60)] # Bruno Berselli, Mar 02 2015

Crossrefs

Cf. A000040, A001223, A082910.

Sequence in context: A071979 A335323 A097748 * A244570 A049645 A167181

Adjacent sequences: A254997 A254998 A254999 * A255001 A255002 A255003

Keyword

nonn,easy

Author

Waldemar Puszkarz, Feb 11 2015

Status

approved