%I #11 Mar 11 2015 04:19:29
%S 5,11,277,25301,51131,70117,82757,124777,167113,178813,190573,199033,
%T 200983,201827,285977,334423,418631,444523,470077,470207,495611,
%U 529513,556691,582011,636997,653617,660557,725321,808597,880421,895003,961183,1015361,1088387
%N Lower twin prime-indexed primes in the sequence of prime(prime(i)).
%C The sequence prime(prime(i)) for i = 1, 2, 3,... is in A006450. The paper by Bayless et al. discusses these primes.
%C It is not clear what the "twin primes" are in the sequence prime(prime(prime(i))). I computed 10^7 terms, last of which is 91132598237. - _T. D. Noe_, Aug 10 2013
%H T. D. Noe, <a href="/A228054/b228054.txt">Table of n, a(n) for n = 1..1000</a>
%H Jonathan Bayless, Dominic Klyve, and Tomás Oliveira e Silva, <a href="http://www.emis.de/journals/INTEGERS/papers/n43/n43.Abstract.html">New Bounds and Computations on Prime-Indexed Primes</a>, INTEGERS, Electronic J. of Combinatorial Number Theory, Vol. 13, Paper A43, 2013.
%e 5 is here because 5 and 11 are adjacent terms in A006450 differing by 6.
%t nn = 10000; t = Table[Prime[Prime[n]], {n, nn}]; s = Select[Range[nn - 1], t[[# + 1]] - t[[#]] == 6 &]; t[[s]]
%Y Cf. A006450, A228055.
%K nonn
%O 1,1
%A _T. D. Noe_, Aug 09 2013
|