OFFSET
1,2
MAPLE
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 13 2003
EXTENSIONS
Corrected and extended by Sascha Kurz, Sep 22 2003
STATUS
approved