1,2

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

a[1] := 1:for n from 2 to 120 do l := 1:while(not isprime(a[n-1]*l*n+1)) do l := l+1: od:a[n] := l*n:od:seq(a[j], j=1..120); # Sascha Kurz

Sequence in context: A140598 A129920 A065634 * A111619 A241083 A143178

Adjacent sequences: A087545 A087546 A087547 * A087549 A087550 A087551

nonn

Amarnath Murthy, Sep 13 2003

Corrected and extended by Sascha Kurz, Sep 22 2003

approved