%I #6 Sep 07 2012 15:56:25
%S 2,3,5,13,17,53,61,79,103,109,137,151,163,179,229,271,277,317,353,409,
%T 419,431,439,443,491,499,547,557,569,593,619,631,641,677,719,811,887,
%U 937,997,1009,1021,1051,1063,1091,1201,1229,1249,1259,1307,1327,1367
%N Primes of the form prime(n) + prime(n+1) - 2n - 1.
%H Harvey P. Dale, <a href="/A108562/b108562.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[(#[[3]]+#[[2]]-2#[[1]]-1)&/@(Join[{PrimePi[#[[1]]]},#]&/@ Partition[ Prime[Range[200]],2,1]),PrimeQ] (* _Harvey P. Dale_, Sep 07 2012 *)
%Y Cf. A108568.
%K easy,nonn
%O 1,1
%A _Giovanni Teofilatto_, Jul 05 2005
%E Extended by _Ray Chandler_, Jul 10 2005