A176624 a(n) = prime(n) + n*(-1)^n.

1, 5, 2, 11, 6, 19, 10, 27, 14, 39, 20, 49, 28, 57, 32, 69, 42, 79, 48, 91, 52, 101, 60, 113, 72, 127, 76, 135, 80, 143, 96, 163, 104, 173, 114, 187, 120, 201, 128, 213, 138, 223, 148, 237, 152, 245, 164, 271, 178, 279, 182, 291, 188, 305, 202, 319, 212, 329, 218

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Formula

a(n) = A000040(n) + A038608(n+1).

Example

a(1)=1 because prime(1) + 1*(-1)^1 = 1.

Maple

A176624 := proc(n) ithprime(n)+n*(-1)^n ; end proc: seq(A176624(n), n=1..120) ; # R. J. Mathar, Apr 27 2010

Mathematica

Table[Prime[n]+(-1)^n*n, {n, 60}] (* G. C. Greubel, Jul 01 2021 *)

Prog

(Magma) [NthPrime(n) +(-1)^n*n: n in [1..60]]; // G. C. Greubel, Jul 01 2021
(Sage) [nth_prime(n) +(-1)^n*n for n in (1..60)] # G. C. Greubel, Jul 01 2021

Crossrefs

Cf. A000040, A038608, A176628.

Sequence in context: A194034 A163257 A332452 * A131784 A302773 A249369

Adjacent sequences: A176621 A176622 A176623 * A176625 A176626 A176627

Keyword

nonn

Author

Juri-Stepan Gerasimov, Apr 22 2010

Extensions

Entries checked by R. J. Mathar, Apr 27 2010

Status

approved