|
| |
|
|
A137724
|
|
Prime numbers p such that p +- ((p-1)/6) are primes.
|
|
0
| |
|
|
37, 181, 397, 757, 829, 1657, 2089, 2161, 2341, 3061, 5077, 6337, 7057, 7309, 7561, 8389
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 37+-6=primes
181+-30=primes
397+-(396/6)=primes
|
|
|
MATHEMATICA
| w=6; s=""; For[i=1, i<10^3*2, p=Prime[i]; If[PrimeQ[p-((p-1)/w)]&&PrimeQ[p+((p-1)/w)], (*Print[p, ":", p-((p-1)/w), ", ", p+((p-1)/w)]; *)s=s<>ToString[p]<>", "]; i++ ]; Print[s]
|
|
|
CROSSREFS
| Sequence in context: A195546 A142410 A164940 * A172080 A142181 A107196
Adjacent sequences: A137721 A137722 A137723 * A137725 A137726 A137727
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 27 2008
|
| |
|
|
