A082454 -id:A082454 - cp's OEIS frontend

A082455 a(n) = prime(n) + prime(n-1) - a(n-1), a(0) = 0, a(1) = 4.

0, 4, 1, 7, 5, 13, 11, 19, 17, 25, 27, 33, 35, 43, 41, 49, 51, 61, 59, 69, 69, 75, 77, 85, 87, 99, 99, 105, 105, 111, 111, 129, 129, 139, 137, 151, 149, 159, 161, 169, 171, 181, 179, 193, 191, 199, 197, 213, 221, 229, 227, 235, 237, 243, 249, 259, 261, 271, 269, 279

Offset: 0

Labos Elemer, Apr 25 2003

nonn

If initial values are {a[0]=0, a[1]=1} we get A014687.
If initial values are {a[0]=1, a[1]=2} we get the primes, A000040.
Initial values {a[0]=1, a[1]=3} give A014686.
See also A082454.

g[x_] := Prime[x]+Prime[x-1]-g[x-1] g[0]=0; g[1]=4; Table[g[w], {w, 0, 100}]

Definition corrected by Georg Fischer, May 15 2024

A082456 a(n) = prime(n) + prime(n-1) - a(n-1), with a(0)=0, a(1)=127, and prime(i) is the i-th prime.

Original entry on oeis.org

0, 127, -122, 130, -118, 136, -112, 142, -106, 148, -96, 156, -88, 166, -82, 172, -72, 184, -64, 192, -54, 198, -46, 208, -36, 222, -24, 228, -18, 234, -12, 252, 6, 262, 14, 274, 26, 282, 38, 292, 48, 304, 56, 316, 68, 322, 74, 336, 98, 352, 104, 358, 114, 366, 126, 382, 138, 394, 146, 402, 156, 408, 168, 432, 186, 438

Offset: 0

Labos Elemer, Apr 25 2003

sign

Initial values {0, 1} give A014687.
Initial values {1, 2} give A000040.
Initial values {1, 3} give A014686.

Cf. A000040, A014686, A014687, A082454, A082455.

g[x_] := Prime[x]+Prime[x-1]-g[x-1] g[0]=0; g[1]=127; Table[g[w], {w, 0, 100}]

a(n) = if (n==0, 0, if (n==1, 127, prime(n) + prime(n-1) - a(n-1))); \\ Michel Marcus, Mar 08 2022

Entry revised by N. J. A. Sloane, Dec 22 2005

cp's OEIS Frontend

A082455 a(n) = prime(n) + prime(n-1) - a(n-1), a(0) = 0, a(1) = 4.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Extensions