OFFSET
0,3
COMMENTS
The product in S is computed componentwise.
For the labeling of the elements in S and further information see A341317.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000
MAPLE
t:= n-> n*(n-1)/2:
f:= n-> ceil((sqrt(1+8*n)-1)/2):
g:= n-> (x-> [x, n-t(x)])(f(n)):
a:= n-> (h-> t(h[1]^2)+h[2]^2)(g(n)):
seq(a(n), n=0..60);
MATHEMATICA
t[n_] := n*(n - 1)/2;
f[n_] := Ceiling[(Sqrt[1 + 8*n] - 1)/2];
g[n_] := Function[x, {x, n - t[x]}][f[n]];
a[n_] := Function[h, t[h[[1]]^2] + h[[2]]^2][g[n]];
Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Feb 26 2022, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Feb 17 2021
STATUS
approved