A079388 Records in A079387.

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

Offset: 1

Author

N. J. A. Sloane, Feb 16 2003

Keywords

• nonn

Comments

RECORDS transform of A079387.

Links

• N. J. A. Sloane, Transforms

Crossrefs

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

Programs

Mathematica

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 *)

PARI

\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)

Extensions

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

Corrected by T. D. Noe, Nov 15 2006