|
Search: id:A088348
|
|
|
| A088348 |
|
A prime subset based on a PrimePi[n] based gap. |
|
+0
2
|
|
| 5, 11, 17, 19, 31, 37, 41, 47, 53, 59, 73, 83, 89, 101, 107, 149, 173, 181, 191, 197, 227, 241, 257, 263, 269, 283, 311, 347, 349, 353, 409, 421, 431, 439, 463, 479, 503, 509, 547, 571, 599, 617, 631, 643, 659, 677, 691, 701, 719, 733, 743, 751, 761, 821, 839
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
A one-liner in Mathematica: I do not know of any related gap sequences of primes.
|
|
FORMULA
|
If[Prime[n]+2*PrimePi[n]-Prime[n+1+m]==0, Prime[n+1+m], 0]
|
|
MATHEMATICA
|
digits=500 a=Delete[Union[ Flatten[Table[ If[Prime[n]+2*PrimePi[n]-Prime[n+1+m]==0, Prime[n+1+m], 0], {n, 1, digits}, {m, 0, 20}]]], 1]
|
|
CROSSREFS
|
Sequence in context: A119754 A081717 A096264 this_sequence A084088 A032646 A123083
Adjacent sequences: A088345 A088346 A088347 this_sequence A088349 A088350 A088351
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L Bagula (rlbagulatftn(AT)yahoo.com), Nov 07 2003
|
|
|
Search completed in 0.002 seconds
|
