OFFSET
0,2
COMMENTS
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