OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Mar 11 2009
STATUS
approved