OFFSET
1,2
COMMENTS
FORMULA
a(n) = (A339952(n) - 1)/4.
MATHEMATICA
TriangularQ[n_]:=IntegerQ[(Sqrt[1+8n]-1)/2]; A000217[n_]:=n(n+1)/2; a={}; kn=0; For[k=0, k<=110, k++, For[h=0, A000217[h]<k/2, h++, If[TriangularQ[k - A000217[h]] && k>kn, AppendTo[a, k]; kn=k]]]; a (* Stefano Spezia, Nov 06 2022 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Stefano Spezia, Oct 01 2022
STATUS
approved