login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Complement of A116959 in the primes.
2

%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