A088187 - OEIS

%I #13 May 25 2019 21:59:55

%S 13,19,257,443,487,1031,1103,1901,2069,2383,2411,2549,2969,2999,3307,

%T 3433,3449,4493,4861,4931,5209,5471,5939,6257,6421,7129,8167,8369,

%U 8951,9151,9311,9391,9461,9619,9689,10181,12323,12457,12791,13309,14797

%N Primes that are a sum of twin primes and their indices.

%C Add both primes of the pair as well as their prime indices.

%e Prime(3) - prime(2) = 5 - 3 = 2; prime(3) + prime(2) + 3 + 2 = 13 = a(1).

%t Select[Plus@@{#,PrimePi[#],#+2,PrimePi[#]+1}&/@(Select[Prime[ Range[ 1000]],PrimeQ[#+2]&]),PrimeQ]  (* _Harvey P. Dale_, Feb 06 2011 *)

%Y Primes in A088186. Cf. A088188.

%K easy,nonn

%O 1,1

%A _Zak Seidov_, Sep 22 2003

%E Edited by _Ray Chandler_, Sep 29 2003