|
Search: id:A147813
|
|
|
| A147813 |
|
Primes whose integer differential curvature is negative or zero (Riemann sphere bad primes): k(n)]=(-Prime[n] + 2 Prime[1 + n] - Prime[2 + n])/((1 - Prime[n] + Prime[1 + n])^(3/2)); a(n)=If[k(n)<0,Prime[n]] |
|
+0
1
|
|
| 2, 3, 5, 11, 17, 19, 29, 41, 43, 47, 59, 71, 79, 83, 101, 107, 109, 127, 137, 149, 151, 163, 167, 179, 191, 197, 199, 227, 229, 239, 251, 257, 269, 281, 283, 311, 313, 331, 347, 349, 353, 367, 379, 383, 397, 401, 419, 431, 439, 443, 461, 463, 487, 499, 503, 521
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
k(n)]=(-Prime[n] + 2 Prime[1 + n] - Prime[2 + n])/((1 - Prime[n] +Prime[1 + n])^(3/2)); a(n)=If[k(n),=0,Prime[n]]
|
|
MATHEMATICA
|
d2[n_] = Prime[n + 2] - 2*Prime[n + 1] + Prime[n]; d1[n_] = Prime[n + 1] - Prime[n]; k[n_] = -d2[n]/(1 + d1[n])^(3/2); Flatten[Table[If[k[n]<= 0, Prime[n], {}], {n, 1, 100}]]
|
|
CROSSREFS
|
Sequence in context: A040060 A040083 A045308 this_sequence A079545 A154755 A040095
Adjacent sequences: A147810 A147811 A147812 this_sequence A147814 A147815 A147816
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 13 2008
|
|
|
Search completed in 0.002 seconds
|
