OFFSET
1,1
MATHEMATICA
Prime[Select[Range[1000], ! PrimeQ[Prime[#] + Prime[# + 1] + Prime[# + 2]] &]]
Transpose[Select[Partition[Prime[Range[200]], 3, 1], !PrimeQ[ Total[#]]&]] [[1]] (* Harvey P. Dale, Jun 04 2013 *)
PROG
(Magma) [NthPrime(n): n in [1..150] | not IsPrime(NthPrime(n) + NthPrime(n+1) + NthPrime(n+2))]; // Vincenzo Librandi Mar 16 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Wintner, Nov 30 2010
STATUS
approved