OFFSET
1,1
EXAMPLE
a(3)=11 because prime(3)=5, primorial(5)=5*3*2=30, 11 and 13 are twin primes and 30+11 = 41 and 43 are also twin primes.
MATHEMATICA
Do[p = Fold[ Times, 1, Prime[ Range[n]]]; k = 2; While[q = Prime[k]; !PrimeQ[q + 2] || !PrimeQ[p + q] || !PrimeQ[p + q + 2], k++ ]; Print[q], {n, 1, 45}] (* Robert G. Wilson v, Feb 10 2004 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Donald S. McDonald, Feb 10 2004
EXTENSIONS
More terms from Ray Chandler and Robert G. Wilson v, Feb 10 2004
STATUS
approved