
COMMENTS

Instead of starting with a(0) = 1 for the first twin prime (3,5) other sequences can be formed for a(0) = 2, i.e. 2nd twin prime: 2, 5, 29, 641, 44381, 7212059, etc., a(0) = 4: 4, 17, 239, 12161, 1583927, etc., a(0) = 6: 6, 41, 1151, 93251, 16989317, etc., a(0) = 7: 7, 59 1931,176021, 35263691, etc., a(0) = 8: 8, 71, 2339,221201, 45749309 and so on.


MATHEMATICA

(* Computes up to a(6) only *) tp[n_] := (* = A001359 *) tp[n] = (p = NextPrime[tp[n1]]; While[ !PrimeQ[p+2], p = NextPrime[p]]; p); tp[1] = 3; Do[tp[n], {n, 2, 10^6}]; a[n_] := a[n] = tp[a[n1]]; a[0]=1; Table[ Print[ a[n]]; a[n], {n, 0, 6}] (* JeanFrançois Alcover, Dec 13 2011 *)


EXTENSIONS

Edited by Frank Ellermann, Jan 25 2002
Offset and example corrected by Farideh Firoozbakht, Dec 07 2008
a(7) = 65818751039 from Zak Seidov and Farideh Firoozbakht, Dec 13 2008
Computed a(8)=46091763604421 using data from T. Oliveira e Silva.  M. F. Hasler, Mar 02 2009
