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

Author

Labos Elemer, Apr 25 2003

Keywords

• nonn

Crossrefs

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.

Programs

Mathematica

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

Extensions

Definition corrected by Georg Fischer, May 15 2024