login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A079388 Records in A079387. 2
2, 3, 7, 37, 149, 853, 1361, 1597, 1861, 4391, 4919, 10487, 12037, 15991, 27581, 334421 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

RECORDS transform of A079387.

LINKS

Table of n, a(n) for n=1..16.

N. J. A. Sloane, Transforms

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

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

Sequence in context: A330554 A304524 A034900 * A183605 A000317 A047024

Adjacent sequences:  A079385 A079386 A079387 * A079389 A079390 A079391

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 4 21:43 EDT 2020. Contains 333238 sequences. (Running on oeis4.)