OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
21 = 3 * 7 is a term since it is a triangular number, and 3 + 7 = 10 is also a triangular number.
MATHEMATICA
triQ[n_] := IntegerQ @ Sqrt[1 + 8 * Plus @@ Times @@@ FactorInteger[n]]; tri[n_] = n*(n + 1)/2; Select[tri /@ Range[500], triQ] (* Amiram Eldar, Dec 11 2019 *)
Module[{nn=500, trs}, trs=Accumulate[Range[nn]]; Select[trs, MemberQ[trs, Total[ Times@@@ FactorInteger[#]]]&]] (* Harvey P. Dale, Jun 11 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Nov 01 2002
STATUS
approved