A127621 Numbers which do not occur in A056127.

3, 6, 9, 12, 17, 22, 27, 31, 37, 42, 47, 54, 61, 66, 71, 77, 84, 91, 97, 101, 109, 117, 124, 130, 137, 143, 150, 157, 164, 172, 180, 187, 193, 200, 206, 217, 221, 228, 238, 244, 253, 261, 267, 275, 282, 290, 297, 305, 312, 321, 327, 335, 344, 352, 361, 367

Offset: 1

Author

Artur Jasinski, Jan 19 2007

Keywords

• nonn

Links

• Eric M. Schmidt, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A056127.

Programs

Mathematica

b = {};Do[AppendTo[b,x], {x, 1, 240}]; a = {1}; Do[x = 1; While[Prime[x + 1] >= (Product[Prime[x], {x, 1, x}])^(1/n), x++ ]; AppendTo[a, x], {n, 1, 200}]; Complement[b, a] (* Artur Jasinski *)

Extensions

More terms from Eric M. Schmidt, Jun 10 2014