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
Keywords
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