Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Mar 02 2018 02:13:58
%S 2,13,41,61,89,113,137,157,173,199,227,269,317,379,419,457,491,557,
%T 599,647,691,739,787,827,853,907,947,967,1019,1069,1117,1171,1217,
%U 1277,1319,1361,1423,1471,1523,1579,1637,1721,1777,1823,1861,1913,1973,2027,2087
%N Complement of A116959 in the primes.
%H Robert G. Wilson v, <a href="/A179925/b179925.txt">Table of n, a(n) for n = 1..1061</a>
%t 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]]
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Aug 01 2010
%E Definition clarified by _Jonathan Sondow_, Nov 09 2015