cp's OEIS Frontend

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.

A076273 a(0) = 1, a(1) = 2; for n>1, a(n) = prime(n)+prime(n-1)-1.

This page as a plain text file.
%I A076273 #21 Nov 05 2023 10:20:02
%S A076273 1,2,4,7,11,17,23,29,35,41,51,59,67,77,83,89,99,111,119,127,137,143,
%T A076273 151,161,171,185,197,203,209,215,221,239,257,267,275,287,299,307,319,
%U A076273 329,339,351,359,371,383,389,395,409,433,449,455,461,471,479,491,507,519,531
%N A076273 a(0) = 1, a(1) = 2; for n>1, a(n) = prime(n)+prime(n-1)-1.
%C A076273 Least m such that A076272(m) > A076272(m-1) for n>0; a(0)=1.
%C A076273 A076272(a(k)+j) = A008578(k) for k>0 and 0<=j < A075527(k-1).
%H A076273 Harvey P. Dale, <a href="/A076273/b076273.txt">Table of n, a(n) for n = 0..1000</a>
%F A076273 a(n) = A001043(n-1)-1, n>1. - _R. J. Mathar_, Jun 04 2020
%t A076273 nxt[{a_,b_}]:={a+1,Prime[a+1]+Prime[a]-1}; Join[{1},Transpose[ NestList[ nxt,{1,2},60]][[2]]] (* or *) Join[{1,2},Total/@Partition[Prime[ Range[ 60]],2,1]-1] (* _Harvey P. Dale_, Jun 12 2012 *)
%o A076273 (PARI) a(n)=if(n<1,1,if(n==1,2,prime(n)+prime(n-1)-1)) \\ Lambert Klasen, Jan 14 2005; corrected by _Michel Marcus_, Nov 05 2023
%Y A076273 Cf. A001043.
%K A076273 nonn,easy
%O A076273 0,2
%A A076273 _Reinhard Zumkeller_, Oct 04 2002
%E A076273 Simpler description from _Vladeta Jovovic_, Mar 29 2003
%E A076273 More terms from Lambert Klasen (lambert.klasen(AT)gmx.de), Jan 14 2005