OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
E.g. (11*13)^2 > (5*7)*(17*19): (11*13)^2 > (3*5)*(29*31).
PROG
(PARI) twins=List(); p=3; forprime(q=5, 1e5, if(q-p==2, listput(twins, q)); p=q); for(k=1, (#twins+1)\2, for(i=1, k-1, if(twins[k]^2 < twins[k-i]*twins[k+i], next(2))); print1(twins[k]-2", ")) \\ Charles R Greathouse IV, Apr 02 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(1) inserted by Charles R Greathouse IV, Apr 02 2014
STATUS
approved