A098865 - OEIS

%I #13 Oct 03 2017 09:39:33

%S 5,7,11,13,23,37,41,53,73,97,101,103,109,127,137,157,179,191,223,229,

%T 251,263,269,271,307,311,353,373,389,409,419,433,457,479,487,491,503,

%U 541,563,571,593,641,647,673,683,691,701,757,809,821,853,859,863,877

%N Primes of the form prime(n) + prime(n+1) - prime(n+2).

%C Many primes of this form arise in several different ways, e.g. 13, 37, 223, 1087, 1423, 1483, 1867, ..., . 13 = 17+19-23 = 19+23-29.

%H Vincenzo Librandi, <a href="/A098865/b098865.txt">Table of n, a(n) for n = 1..1000</a>

%t Union[ Select[ Table[Prime[n] + Prime[n + 1] - Prime[n + 2], {n, 155}], PrimeQ[ # ] &]]

%t Union[Select[#[[1]]+#[[2]]-#[[3]]&/@ Partition[Prime[ Range[20000]], 3,1],PrimeQ]]  (* _Harvey P. Dale_, Mar 14 2011 *)

%Y Cf. A098761, A096379.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Nov 04 2004