|
| |
|
|
A158720
|
|
Primes p such that Floor[p/3]+p is prime.
|
|
3
| |
|
|
2, 13, 31, 67, 73, 103, 181, 193, 211, 307, 337, 433, 463, 571, 577, 607, 643, 661, 733, 757, 787, 823, 937, 967, 991, 1021, 1117, 1201, 1291, 1567, 1597, 1621, 1723, 1783, 1831, 1993, 2017, 2083, 2143, 2251, 2281, 2287, 2341, 2377, 2521, 2593, 2647, 2713
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Floor[13/3]+13=17, ...
|
|
|
MATHEMATICA
| lst={}; Do[p=Prime[n]; If[PrimeQ[Floor[p/3]+p], AppendTo[lst, p]], {n, 6!}]; lst
|
|
|
CROSSREFS
| Cf. A158708, A158709, A158710, A158711, A158712, A158713, A158714, A158719
Sequence in context: A001914 A031392 A156980 * A108659 A086924 A108660
Adjacent sequences: A158717 A158718 A158719 * A158721 A158722 A158723
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Mar 24 2009
|
| |
|
|
