login
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.
0
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,2
COMMENTS
Initial values {0, 1} give A014687.
Initial values {1, 2} give A000040.
Initial values {1, 3} give A014686.
MATHEMATICA
g[x_] := Prime[x]+Prime[x-1]-g[x-1] g[0]=0; g[1]=127; Table[g[w], {w, 0, 100}]
PROG
(PARI) a(n) = if (n==0, 0, if (n==1, 127, prime(n) + prime(n-1) - a(n-1))); \\ Michel Marcus, Mar 08 2022
CROSSREFS
KEYWORD
sign
AUTHOR
Labos Elemer, Apr 25 2003
EXTENSIONS
Entry revised by N. J. A. Sloane, Dec 22 2005
STATUS
approved