login
A079388
Records in A079387.
2
2, 3, 7, 37, 149, 853, 1361, 1597, 1861, 4391, 4919, 10487, 12037, 15991, 27581, 334421
OFFSET
1,1
COMMENTS
RECORDS transform of A079387.
LINKS
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 *)
PROG
(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)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 16 2003
EXTENSIONS
More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 06 2005
Corrected by T. D. Noe, Nov 15 2006
STATUS
approved