|
Search: id:A127621
|
|
| |
|
| 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; listen)
|
|
|
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: A072567 A061796 A113241 this_sequence A049707 A052287 A063996
Adjacent sequences: A127618 A127619 A127620 this_sequence A127622 A127623 A127624
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 19 2007
|
|
|
Search completed in 0.002 seconds
|
