OFFSET
1,2
EXAMPLE
a(3) = 5 because A375971(3) = 650 and 5^2 is the largest square dividing 650.
From David A. Corneth, Sep 13 2024: (Start)
70 is in the sequence as A000330(24) = 24 * 25 * 49 / 6 = 4 * 25 * 49. The largest square dividing 4 is 4, the largest square dividing 25 is 25 and the largest square dividing 49 is 49.
So the largest k such that k^2 divides 4 * 25 * 49 is sqrt(4)*sqrt(25)*sqrt(49) = 2*5*7 = 70, a record. (End)
MAPLE
g:= proc(n) local t, s, F; t:= n*(n+1)*(2*n+1)/6;
F:= ifactors(t)[2];
mul(s[1]^floor(s[2]/2), s=F)
end proc:
V:= NULL; m:= 0: count:= 0:
for k from 1 while count < 20 do
v:= g(k);
if v > m then m:= v; V:= V, v; count:= count+1; fi
od:
V;
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Sep 04 2024
EXTENSIONS
a(25) from Michael S. Branicky, Sep 06 2024
a(26)-a(31) from David A. Corneth, Sep 08 2024
STATUS
approved