OFFSET
1,3
COMMENTS
Subset of even terms of A357505, divided by 2. - Michel Marcus, Nov 05 2022
MATHEMATICA
TriangularQ[n_]:=IntegerQ[(Sqrt[1+8n]-1)/2]; A000217[n_]:=n(n+1)/2; a={}; For[k=0, k<=105, k++, ok=1; For[h=0, h<2k, h++, If[TriangularQ[2*A000217[k] - A000217[h]] && k!=h, ok=0]]; If[ok==1, AppendTo[a, k(k+1)/2]]]; a (* Stefano Spezia, Nov 05 2022 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Stefano Spezia, Oct 02 2022
STATUS
approved