|
|
A070935
|
|
Largest proper divisor of n^2.
|
|
2
|
|
|
2, 3, 8, 5, 18, 7, 32, 27, 50, 11, 72, 13, 98, 75, 128, 17, 162, 19, 200, 147, 242, 23, 288, 125, 338, 243, 392, 29, 450, 31, 512, 363, 578, 245, 648, 37, 722, 507, 800, 41, 882, 43, 968, 675, 1058, 47, 1152, 343, 1250, 867, 1352, 53, 1458, 605, 1568, 1083, 1682
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
Computable as largest value of GCD[n^2,j] for j=1+n^2,...,-1+2*n^2.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
f:= n -> n^2/min(numtheory:-factorset(n)):
|
|
MATHEMATICA
|
Table[Max[Table[GCD[n^2, w], {w, n^2+1, 2*n^2-1}]], {n, 2, 128}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|