OFFSET
1,1
MAPLE
with(numtheory):a[1] := 2:for n from 2 to 84 do q := a[n-1]+1:while(not issqrfree(q)) do q := q+a[n-1]:od:a[n] := q:od:seq(a[l], l=1..84);
MATHEMATICA
a[1] = 2; a[n_] := a[n] = Block[{k = 1}, While[ MoebiusMu[k*a[n - 1] + 1] == 0, k++ ]; k*a[n - 1] + 1]; Table[ a[n], {n, 1, 32}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 26 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Oct 29 2002
STATUS
approved