A179925 Complement of A116959 in the primes.

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

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

Sequence in context: A263979 A042795 A361071 * A263980 A157185 A219054

Adjacent sequences: A179922 A179923 A179924 * A179926 A179927 A179928

Keyword

nonn

Author

Robert G. Wilson v, Aug 01 2010

Extensions

Definition clarified by Jonathan Sondow, Nov 09 2015

Status

approved