OFFSET
1,1
COMMENTS
Numbers that are in A174071 in two or more ways.
The first number with more than two representations as a sum of four or more consecutive positive squares is 147441 = 18^2 + ... + 76^2 = 29^2 + ... + 77^2 = 85^2 + ... + 101^2.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 3655 is in the sequence because 3655 = 8^2 + ... + 22^2 = 25^2 + ... + 29^2.
MAPLE
N:= 10^5: # to get all terms <= N
R:= 'R':
dups:= NULL:
for m from 4 while m*(m+1)*(2*m+1)/6 <= N do
for k from 1 do
v:= m*(6*k^2 + 6*k*m + 2*m^2 - 6*k - 3*m + 1)/6;
if v > N then break fi;
if assigned(R[v]) then
dups:= dups, v;
else
R[v]:= [k, k+m-1];
fi;
od od:
sort(convert({dups}, list));
MATHEMATICA
M = 10^5;
dups = {}; Clear[rQ]; rQ[_] = False;
For[m = 4, m(m+1)(2m+1)/6 <= M, m++, For[k = 1, True, k++, v = m(6k^2 + 6k m + 2m^2 - 6k - 3m + 1)/6; If[v > M, Break[]]; If[rQ[v], AppendTo[dups, v], rQ[v] = True]]];
dups // Sort (* Jean-François Alcover, May 07 2019, after Robert Israel *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, May 06 2019
STATUS
approved