|
%I #12 Mar 15 2020 22:20:30
%S 2,3,7,37,149,853,1361,1597,1861,4391,4919,10487,12037,15991,27581,
%T 334421
%N Records in A079387.
%C RECORDS transform of A079387.
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%t A079387 = Cases[Import["https://oeis.org/A079387/b079387.txt", "Table"], {_, _}][[All, 2]];
%t a = {}; l = 0;
%t For[i = 1, i <= Length[A079387], i++,
%t If[A079387[[i]] > l, l = A079387[[i]]; AppendTo[a, l]]];
%t a (* _Robert Price_, Mar 15 2020 *)
%o (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)
%Y Cf. A079387, A079389, A079366, A079367, A079368.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Feb 16 2003
%E More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 06 2005
%E Corrected by _T. D. Noe_, Nov 15 2006
|
