|
Search: id:A137771
|
|
|
| A137771 |
|
Prime numbers p such that p +- ((p-1)/8) are primes. |
|
+0
1
|
|
| 241, 433, 1153, 2593, 3121, 5521, 6673, 7393, 8353, 8641, 10513, 13681, 19441, 21121, 22273, 32401, 34273, 43441, 48193, 49201, 54721, 62401, 68881, 69313, 71473, 74161, 77761, 86161, 87121, 104113, 105601, 114913, 116833, 119953
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
241+-(240/8)=primes
433+-(432/8)=primes
|
|
MATHEMATICA
|
w=8; 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]
Select[Prime[Range[15000]], PrimeQ[ # + (# - 1)/8] && PrimeQ[ # - (# - 1)/8] &] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 02 2008
|
|
CROSSREFS
|
Sequence in context: A142918 A139502 A140629 this_sequence A108831 A068706 A142233
Adjacent sequences: A137768 A137769 A137770 this_sequence A137772 A137773 A137774
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 27 2008
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 02 2008
|
|
|
Search completed in 0.002 seconds
|
