OFFSET
1,1
MAPLE
a[1] := 4:for n from 2 to 84 do q := 2*a[n-1]-1:while(isprime(q)) do q := q-1:od: a[n] := q:od:seq(a[l], l=1..84);
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 26 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 26 2003
STATUS
approved