OFFSET
1,1
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..1061
MATHEMATICA
f[n_] := f[n] = Block[{k = f[n - 1]}, While[k^n >= LCM @@ Range@k, k++ ]; k]; f[0] = 1; Complement[ Prime@ Range@ 320, Array[f, 400]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 01 2010
EXTENSIONS
Definition clarified by Jonathan Sondow, Nov 09 2015
STATUS
approved