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