OFFSET
1,2
COMMENTS
The total number of possible representations of A357302(n)^2 = x^2 + x*y + y^2 with integers x,y is 12*a(n) - 6.
EXAMPLE
See A357302.
MATHEMATICA
records[n_] := Module[{ri = n, m = 0, rcs = {}, len}, len = Length[ri];
While[len > 0, If[First[ri] > m, m = First[ri]; AppendTo[rcs, m]];
ri = Rest[ri]; len--]; rcs]; (* after Harvey P. Dale in A336679 *)
records[Table[
Length[FindInstance[
x^2 - x*y + y^2 == k^2 && x > 2*y && y >= 0, {x, y}, Integers,
1000]], {k, 0, 2000}]]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Hugo Pfoertner, Sep 25 2022
STATUS
approved