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
Keywords
Examples
a(1)=1 because prime(1) + 1*(-1)^1 = 1.
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[NthPrime(n) +(-1)^n*n: n in [1..60]]; // G. C. Greubel, Jul 01 2021
-
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 *) -
Sage
[nth_prime(n) +(-1)^n*n for n in (1..60)] # G. C. Greubel, Jul 01 2021
Extensions
Entries checked by R. J. Mathar, Apr 27 2010