login
A127621
Numbers which do not occur in A056127.
1
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,1
LINKS
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 *)
CROSSREFS
Cf. A056127.
Sequence in context: A113241 A310153 A356104 * A049707 A213685 A271449
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 19 2007
EXTENSIONS
More terms from Eric M. Schmidt, Jun 10 2014
STATUS
approved