%I #11 May 15 2024 06:57:15
%S 0,4,1,7,5,13,11,19,17,25,27,33,35,43,41,49,51,61,59,69,69,75,77,85,
%T 87,99,99,105,105,111,111,129,129,139,137,151,149,159,161,169,171,181,
%U 179,193,191,199,197,213,221,229,227,235,237,243,249,259,261,271,269,279
%N a(n) = prime(n) + prime(n-1) - a(n-1), a(0) = 0, a(1) = 4.
%t g[x_] := Prime[x]+Prime[x-1]-g[x-1] g[0]=0; g[1]=4; Table[g[w], {w, 0, 100}]
%Y If initial values are {a[0]=0, a[1]=1} we get A014687.
%Y If initial values are {a[0]=1, a[1]=2} we get the primes, A000040.
%Y Initial values {a[0]=1, a[1]=3} give A014686.
%Y See also A082454.
%K nonn
%O 0,2
%A _Labos Elemer_, Apr 25 2003
%E Definition corrected by _Georg Fischer_, May 15 2024