login
A179925
Complement of A116959 in the primes.
2
2, 13, 41, 61, 89, 113, 137, 157, 173, 199, 227, 269, 317, 379, 419, 457, 491, 557, 599, 647, 691, 739, 787, 827, 853, 907, 947, 967, 1019, 1069, 1117, 1171, 1217, 1277, 1319, 1361, 1423, 1471, 1523, 1579, 1637, 1721, 1777, 1823, 1861, 1913, 1973, 2027, 2087
OFFSET
1,1
LINKS
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
Sequence in context: A263979 A042795 A361071 * A263980 A157185 A219054
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 01 2010
EXTENSIONS
Definition clarified by Jonathan Sondow, Nov 09 2015
STATUS
approved