|
|
A174635
|
|
Prime numbers that are not Ramanujan primes.
|
|
8
|
|
|
3, 5, 7, 13, 19, 23, 31, 37, 43, 53, 61, 73, 79, 83, 89, 103, 109, 113, 131, 137, 139, 157, 163, 173, 191, 193, 197, 199, 211, 223, 251, 257, 271, 277, 283, 293, 313, 317, 331, 337, 353, 359, 379, 383, 389, 397, 421, 443, 449, 457, 463, 467, 479, 499, 509, 521
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
nn = 100; R = Table[0, {nn}]; s = 0;
Do[If[PrimeQ[k], s++]; If[PrimeQ[k/2], s--]; If[s < nn, R[[s + 1]] = k], {k, Prime[3 nn]}
];
R = R + 1;
|
|
PROG
|
(Perl) use ntheory ":all"; my @n = grep { !is_ramanujan_prime($_) } @{primes(1e3)}; say "[@n]"; # Dana Jacobsen, Jul 15 2016
(Perl) use ntheory ":all"; my %r; $r{$_} = 1 for @{ramanujan_primes(1e7)}; say for grep { !exists $r{$_} } @{primes(1e7)}; # Dana Jacobsen, Jul 15 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|