%I
%S 11,23,83,107,167,179,227,347,479,587,839,863,983,1283,1367,1439,1487,
%T 1619,1823,1907,2027,2039,2447,2879,2963,2999,3119,3203,3623,3863,
%U 4127,4139,4259,4283,4787,5099,5483,5879,6719,6779,6983,7247,7703,7727,7823
%N Primes such that p, 10*p1 and (p1)/2 are all prime.
%t Flatten[Table[If[PrimeQ[n] && PrimeQ[10*n  1] && PrimeQ[( n  1)/2], n, {}], {n, 1, 10000}]]
%Y A059455
%K nonn
%O 1,1
%A _Roger L. Bagula_ and _Gary W. Adamson_, Mar 11 2009
