|
| |
|
|
A127621
|
|
Numbers which do not occur in A056127.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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: A186353 A061796 A113241 * A049707 A166633 A052287
Adjacent sequences: A127618 A127619 A127620 * A127622 A127623 A127624
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Jan 19 2007
|
| |
|
|
