%I #11 Jun 10 2018 20:30:54
%S 3,3,5,41,461,4637,51347,563009,6445991,80358599,1066687469,
%T 15116681441,228312888437
%N k-th lower twin prime, where k = n!.
%o (PARI) f(n) = for(x=0,n,print1(twinl(x!),",")) twinl(n) = { local(c,x); c=0; x=1; while(c<n, if(isprime(prime(x)+2),c++); x++; ); return(prime(x-1)) }
%o (PARI) default(primelimit, 7000000); twinl(n) = { local(c, x); c=0; x=1; while(c<n, if(isprime(prime(x)+2), c++); x++); return(prime(x-1)) } { for(n=0, 8, write("b093310.txt", n, " ", twinl(n!))); } \\ _Harry J. Smith_, Jun 20 2009
%K nonn
%O 0,1
%A _Cino Hilliard_, Apr 25 2004
%E a(8) from _Harry J. Smith_, Jun 20 2009
%E a(9)-a(12) from _Giovanni Resta_, Jun 10 2018
|