A187866 Greatest k such that prime(n)*(prime(n)-k)-1 and prime(n)*(prime(n)-k)+1 are twin primes, k >= 0 and k < prime(n) or -1 if no such k exists.
0, 1, -1, 1, -1, -1, 11, 7, 17, 17, -1, -1, 11, 19, 41, -1, 41, -1, 43, 53, -1, -1, 29, 41, -1, 59, 97, 101, 61, 89, -1, 101, 131, 127, 137, 73, 133, 127, 137, 119, 47, 163, 101, 157, 131
Offset: 1
Keywords
Links
- Pierre CAMI, Table of n, a(n) for n = 1..25000
Crossrefs
Cf. A187563.
Programs
-
Mathematica
a[n_] := (k=Prime[n]-1; While[p = Prime[n]*(Prime[n]-k)-1; k>=0 && !(PrimeQ[p] && PrimeQ[p + 2]), k--]; k); a /@ Range[45] (* Jean-François Alcover, Mar 28 2011 *)
Comments