|
%I #7 Apr 03 2020 01:50:11
%S 0,1,3,7,9,13,19,21,27,31,33,39,51,61,63,67,73,79,93,97,109,111,117,
%T 123,129,151,171,177,181,187,189,217,219,237,243,247,259,297,313,319,
%U 321,327,339,357,369,373,403,417,427,441,453,457,471,483,489,493,523,529
%N Numbers n such that 2*n + 5 and 5*n + 2 are primes.
%C Union of A089038 and A111223.
%C Except for the first, all terms == 1 or 3 (mod 6). - _Robert Israel_, Apr 02 2020
%H Robert Israel, <a href="/A107771/b107771.txt">Table of n, a(n) for n = 1..10000</a>
%p select(n -> isprime(2*n+5) and isprime(5*n+2), [0,seq(i,i=1..1000,2)]); # _Robert Israel_, Apr 02 2020
%t Reap[Do[If[PrimeQ[2*n+5]&&PrimeQ[5*n+2],Sow[n]],{n,0,600}]][[2,1]]
%Y Cf. A089038, A111223.
%K nonn
%O 1,3
%A _Zak Seidov_, Mar 31 2006
|
