|
|
|
|
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
|
|
|
LINKS
|
|
|
MATHEMATICA
|
A079387 = Cases[Import["https://oeis.org/A079387/b079387.txt", "Table"], {_, _}][[All, 2]];
a = {}; l = 0;
For[i = 1, i <= Length[A079387], i++,
|
|
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
|
|
|
EXTENSIONS
|
More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 06 2005
|
|
STATUS
|
approved
|
|
|
|