This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A082456 #14 Mar 08 2022 11:35:58 %S A082456 0,127,-122,130,-118,136,-112,142,-106,148,-96,156,-88,166,-82,172, %T A082456 -72,184,-64,192,-54,198,-46,208,-36,222,-24,228,-18,234,-12,252,6, %U A082456 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 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. %C A082456 Initial values {0, 1} give A014687. %C A082456 Initial values {1, 2} give A000040. %C A082456 Initial values {1, 3} give A014686. %t A082456 g[x_] := Prime[x]+Prime[x-1]-g[x-1] g[0]=0; g[1]=127; Table[g[w], {w, 0, 100}] %o A082456 (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 A082456 Cf. A000040, A014686, A014687, A082454, A082455. %K A082456 sign %O A082456 0,2 %A A082456 _Labos Elemer_, Apr 25 2003 %E A082456 Entry revised by _N. J. A. Sloane_, Dec 22 2005