|
%I #14 Mar 08 2022 11:35:58
%S 0,127,-122,130,-118,136,-112,142,-106,148,-96,156,-88,166,-82,172,
%T -72,184,-64,192,-54,198,-46,208,-36,222,-24,228,-18,234,-12,252,6,
%U 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
%N 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.
%C Initial values {0, 1} give A014687.
%C Initial values {1, 2} give A000040.
%C Initial values {1, 3} give A014686.
%t g[x_] := Prime[x]+Prime[x-1]-g[x-1] g[0]=0; g[1]=127; Table[g[w], {w, 0, 100}]
%o (PARI) a(n) = if (n==0, 0, if (n==1, 127, prime(n) + prime(n-1) - a(n-1))); \\ _Michel Marcus_, Mar 08 2022
%Y Cf. A000040, A014686, A014687, A082454, A082455.
%K sign
%O 0,2
%A _Labos Elemer_, Apr 25 2003
%E Entry revised by _N. J. A. Sloane_, Dec 22 2005
|
