

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



