login
A158017
Primes p such that 10*p-1 is also prime.
4
2, 3, 11, 23, 41, 71, 83, 101, 107, 113, 149, 167, 179, 227, 239, 269, 311, 317, 347, 353, 389, 479, 491, 521, 557, 569, 587, 647, 653, 683, 809, 821, 827, 839, 863, 911, 977, 983, 1091, 1229, 1259, 1283, 1289, 1301, 1367, 1373, 1439, 1487, 1493, 1607, 1619
OFFSET
1,1
COMMENTS
The family of prime sequences that generate primes k*p-1 for k = 2, 4, 6, 8, ... also comprises A005382 (k=2), A062737 (k=4), A158015 (k=6), and A158016 (k=8).
LINKS
MATHEMATICA
Flatten[Table[If[PrimeQ[n] && PrimeQ[10*n - 1], n, {}], {n, 1, 10000}]]
Select[Prime[Range[600]], PrimeQ[(10 # - 1)]&] (* Vincenzo Librandi, Apr 14 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(3000)|IsPrime(10*p-1)] // Vincenzo Librandi, Jan 29 2011
CROSSREFS
Sequence in context: A080153 A040124 A082739 * A346605 A091310 A040994
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Mar 11 2009
STATUS
approved