OFFSET
0,1
MATHEMATICA
t = Sort[ Flatten[ Table[n = k^2*j; If[ GCD[k, j] == 1 && 10^5 < n < 10^8, n, {}], {k, 15000}, {j, k}]]]; l = Length[t]; t[[Select[ Range[l - 11], t[[ # ]] == t[[ # + 9]] &]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet and Robert G. Wilson v, Feb 23 2005
STATUS
approved