OFFSET
1,1
COMMENTS
Add both primes of the pair as well as their prime indices.
EXAMPLE
Prime(3) - prime(2) = 5 - 3 = 2; prime(3) + prime(2) + 3 + 2 = 13 = a(1).
MATHEMATICA
Select[Plus@@{#, PrimePi[#], #+2, PrimePi[#]+1}&/@(Select[Prime[ Range[ 1000]], PrimeQ[#+2]&]), PrimeQ] (* Harvey P. Dale, Feb 06 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 22 2003
EXTENSIONS
Edited by Ray Chandler, Sep 29 2003
STATUS
approved