login
Numbers n such that prime(n) + prime(n+1) + prime(n+2) is not a prime.
0

%I #23 Sep 08 2022 08:46:13

%S 1,2,6,12,14,15,17,21,24,25,27,28,30,31,32,33,36,39,40,41,42,43,44,46,

%T 48,49,51,52,53,54,55,56,57,59,63,65,66,67,71,72,73,74,76,78,81,82,84,

%U 85,86,89,92,93,96,98,99,100,102,103,104,105,106,107,108

%N Numbers n such that prime(n) + prime(n+1) + prime(n+2) is not a prime.

%C Complement of A072225.

%e 6 is in the sequence because prime(6) + prime(7) + prime(8) = 13 + 17 + 19 = 49 is not a prime.

%t Select[Range[200], !PrimeQ[Prime[#] + Prime[# + 1] + Prime[# + 2]] &]

%o (Magma) [n: n in [1..200] | not IsPrime(NthPrime(n) + NthPrime(n+1) + NthPrime(n+2))];

%o (PARI) for(n=1, 1e2, if(!isprime(prime(n)+prime(n+1)+prime(n+2)), print1(n, ", "))) \\ _Altug Alkan_, Nov 19 2015

%o (Sage) [n for n in (1..200) if not is_prime(nth_prime(n) + nth_prime(n+1) + nth_prime(n+2))] # _Bruno Berselli_, Nov 19 2015

%Y Cf. A000040, A072225, A174742 (associated primes).

%K nonn,easy

%O 1,2

%A _Vincenzo Librandi_, Nov 18 2015