OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
a(10) = 27 since the 10th twin-prime pair is (107, 109) and 108 = 4*27.
MATHEMATICA
Max[Power @@@ FactorInteger[#]] & /@ (Select[Prime[Range[350]], PrimeQ[# + 2] &] + 1) (* Amiram Eldar, May 25 2024 *)
PROG
(PARI) maxpow(n) = {my(f = factor(n)); if(n == 1, 1, vecmax(vector(#f~, i, f[i, 1]^f[i, 2]))); }
lista(pmax) = {my(prev = 2); forprime(p = 3, pmax, if(p == prev + 2, print1(maxpow(p - 1), ", ")); prev = p); } \\ Amiram Eldar, May 25 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Greg Huber, Jul 13 2006
EXTENSIONS
More terms from Amiram Eldar, May 25 2024
STATUS
approved