login
The OEIS is supported by the many generous donors to the OEIS 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
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
Sequence in context: A330554 A304524 A034900 * A183605 A000317 A047024
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 03:51 EDT 2024. Contains 371264 sequences. (Running on oeis4.)