|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Floor[13/3]+13=17, ...
|
|
LINKS
|
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[Floor[p/3]+p], AppendTo[lst, p]], {n, 6!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|