login
Product of upper bound twin-prime-indexed primes and their upper bound twin prime.
0

%I #14 Jan 07 2017 00:52:59

%S 55,119,533,1273,3937,8213,17263,26791,57989,65291,110783,132427,

%T 196747,226003,242183,331363,367043,471811,522701,651353,820499,

%U 1224689,1307227,1527437,1967003,2371363,2657021,2826973,3078041,3267323

%N Product of upper bound twin-prime-indexed primes and their upper bound twin prime.

%F Let prime(i) = i-th prime, let twin(n) = (P, Q) be n-th pair of twin primes; sequence gives prime(Q)*Q.

%e The 3rd pair of twin primes is twin(3) = (11,13), prime(13) = 41, a(3) = 41*13 = 533.

%t #*Prime[#]&/@(Transpose[Select[Partition[Prime[Range[200]],2,1], Last[#]- First[#] ==2&]][[2]]) (* _Harvey P. Dale_, Jun 04 2014 *)

%Y Cf. A057470, A057473.

%K easy,nonn

%O 1,1

%A _Cino Hilliard_, Mar 04 2003