OFFSET
1,2
EXAMPLE
Associated prime 6-plets are:
11, 13, 17, 19, 23, 29; # from k=1
1481, 1483, 1487, 1489, 1493, 1499; # from k=148
165701, 165703, 165707, 165709, 165713, 165719; # from k=16570
326141, 326143, 326147, 326149, 326153, 326159; # from k=32614
MATHEMATICA
Flatten[Table[If[PrimeQ[10* n + 1] && PrimeQ[10*n + 3] && PrimeQ[10*n + 7] && PrimeQ[10*n + 9] && PrimeQ[10*(n + 1) + 3] && PrimeQ[10*(n + 1) + 9], n, {}], {n, 0, 200000}]]
PROG
(Magma) [n: n in [0..1000]| IsPrime(10*n+1) and IsPrime(10*n+3) and IsPrime(10*n+7) and IsPrime(10*n+9) and IsPrime(10*n+13) and IsPrime(10*n+19)] // Vincenzo Librandi, Nov 30 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 19 2010
EXTENSIONS
STATUS
approved