OFFSET
1,1
COMMENTS
Relating the two prime types:
(p-1)/2,(p-1)/4,(p-1)/6,(p-1)/8,(p-1)/10,(p-1)/12...
and
2*p-1,4*p-1,6*p-1,8*p-1,10*p-1...
where both contain 11,23 subsequence.
MATHEMATICA
Flatten[Table[If[PrimeQ[(n - 1)/2] && PrimeQ[10*n - 1], n, {}], {n, 1, 10000}]]
Select[Range[1, 1500, 2], PrimeQ[(#-1)/2]&&PrimeQ[10#-1]&] (* Harvey P. Dale, Mar 10 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula and Gary W. Adamson, Mar 11 2009, Mar 20 2009
STATUS
approved