A079387 -id:A079387 - cp's OEIS frontend

A079389 Where records occur in A079387.

Original entry on oeis.org

1, 2, 4, 8, 11, 78, 623, 661, 729, 812, 993, 1088, 1318, 4250, 7041, 7499

Offset: 1

N. J. A. Sloane, Feb 16 2003

nonn

RECORDS transform of A079387.

N. J. A. Sloane, Transforms

Cf. A079387, A079388, A079366, A079367, A079368.

A079387 = Cases[Import["https://oeis.org/A079387/b079387.txt", "Table"], {, }][[All, 2]];
a = {}; l = 0;
For[i = 1, i <= Length[A079387], i++,
  If[A079387[[i]] > l, l = A079387[[i]]; AppendTo[a, i]]];
a (* Robert Price, Mar 15 2020 *)

More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 06 2005

A079388 Records in A079387.

Original entry on oeis.org

2, 3, 7, 37, 149, 853, 1361, 1597, 1861, 4391, 4919, 10487, 12037, 15991, 27581, 334421

Offset: 1

N. J. A. Sloane, Feb 16 2003

nonn

RECORDS transform of A079387.

N. J. A. Sloane, Transforms

Cf. A079387, A079389, A079366, A079367, A079368.

A079387 = Cases[Import["https://oeis.org/A079387/b079387.txt", "Table"], {, }][[All, 2]];
a = {}; l = 0;
For[i = 1, i <= Length[A079387], i++,
  If[A079387[[i]] > l, l = A079387[[i]]; AppendTo[a, l]]];
a (* Robert Price, Mar 15 2020 *)

\p20000 P(x)=local(y); y=ceil(1/x);if(isprime(y),y,nextprime(y)); F(x)=local(y,i,t1);y=x; t1=vector(10000);for(i=1,10000,p=P(y);t1[i]=p;y=p*y-1);t1 v=F(sqrt(3)-1); m=0;for(i=1,length(v),if(v[i]>m,print1(v[i],",");m=v[i])) (Herrgesell)

More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 06 2005

Corrected by T. D. Noe, Nov 15 2006

cp's OEIS Frontend

A079389 Where records occur in A079387.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions