%I #18 Feb 03 2024 00:54:27
%S 2,3,11,23,41,71,83,101,107,113,149,167,179,227,239,269,311,317,347,
%T 353,389,479,491,521,557,569,587,647,653,683,809,821,827,839,863,911,
%U 977,983,1091,1229,1259,1283,1289,1301,1367,1373,1439,1487,1493,1607,1619
%N Primes p such that 10*p-1 is also prime.
%C 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).
%H Vincenzo Librandi, <a href="/A158017/b158017.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Table[If[PrimeQ[n] && PrimeQ[10*n - 1], n, {}], {n, 1, 10000}]]
%t Select[Prime[Range[600]], PrimeQ[(10 # - 1)]&] (* _Vincenzo Librandi_, Apr 14 2013 *)
%o (Magma) [p: p in PrimesUpTo(3000)|IsPrime(10*p-1)] // _Vincenzo Librandi_, Jan 29 2011
%Y Cf. A005382, A062737.
%K nonn,easy
%O 1,1
%A _Roger L. Bagula_, Mar 11 2009