%I #14 Feb 06 2019 02:19:32
%S 1,2,4,5,7,10,11,16,17,23,26,28,31,35,37,46,56,59,61,65,68,73,86,88,
%T 95,98,109,110,112,119,122,128,130,137,143,145,149,161,166,175,178,
%U 187,191,199,200,214,221,224,227,229,238,242,247,266,268,269,271,280,284,290
%N Numbers n such that 10*n3 and 10*n+3 are both primes.
%C Contains all terms of A093014.
%H G. C. Greubel, <a href="/A093013/b093013.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = A091992(n)/2.
%t Select[Range[600], PrimeQ[10*#3] && PrimeQ[10*#+3] &] (* _G. C. Greubel_, Feb 05 2019 *)
%o (PARI) for(n=1,290,if(isprime(10*n3)&&isprime(10*n+3),print1(n,", "))) \\ _Jinyuan Wang_, Feb 06 2019
%Y Cf. A091992, A093014.
%K nonn
%O 1,2
%A _Ray Chandler_, Mar 19 2004
