OFFSET
1,1
COMMENTS
Also: Largest prime factor of the average, or the sum, of twin prime pairs. - M. F. Hasler, Jan 03 2011
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
EXAMPLE
101 is the 9th lesser twin, 102 = 2*3*17, and its max p factor is 17=a(9).
MATHEMATICA
FactorInteger[1+#][[-1, 1]]&/@Select[Partition[Prime[Range[500]], 2, 1], #[[2]]- #[[1]]==2&][[All, 1]] (* Harvey P. Dale, Jan 16 2017 *)
PROG
(PARI) p=3; for(n=1, 1e3, until(o+2==p, p=nextprime(2+o=p)); print1(vecmax(factor(p-1)[, 1])", ")) \\ M. F. Hasler, Jan 03 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 20 2001
STATUS
approved