|
%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
|
