|
| |
|
|
A153135
|
|
Numbers n such that n and 6n-7 are both prime
|
|
3
| |
|
|
2, 3, 5, 11, 13, 19, 23, 29, 31, 41, 43, 53, 59, 61, 71, 73, 79, 83, 101, 109, 139, 149, 163, 173, 193, 199, 211, 229, 239, 241, 251, 263, 269, 271, 313, 331, 349, 353, 379, 401, 409, 431, 433, 449, 491, 503, 521, 563, 569
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| For n=2, 6n-7=5; n=569, 6n-7=3407
|
|
|
MATHEMATICA
| lst={}; Do[p=Prime[n]; If[PrimeQ[6*p-7], AppendTo[lst, p]], {n, 6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 23 2008]
Select[Prime[Range[110]], PrimeQ[6#-7]&] (* From Harvey P. Dale, Oct 25 2011 *)
|
|
|
CROSSREFS
| Cf. A153245, A153134 [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 23 2008]
Sequence in context: A139053 A184859 A193213 * A038615 A104293 A153002
Adjacent sequences: A153132 A153133 A153134 * A153136 A153137 A153138
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Dec 21 2008
|
|
|
EXTENSIONS
| Corrected by D. S. McNeil, Dec 10 2010
|
| |
|
|
