OFFSET
1,1
COMMENTS
RECORDS transform of A079387.
LINKS
N. J. A. Sloane, Transforms
MATHEMATICA
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
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