|
%I #14 Jun 26 2022 04:14:14
%S 28,91,351,2926,8001,46971,58653,93528,97461,141778,300700,365085,
%T 382375,398278,874503,1295245,1669878,3425653,4117015,7517503,7657741,
%U 7771653,9415630,9598771
%N Triangular numbers that can be written as sum of two positive cubes.
%C Intersection of A003325 and A000217.
%H Donovan Johnson, <a href="/A113958/b113958.txt">Table of n, a(n) for n = 1..5122</a>
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of cubes</a>
%e 91 = 13*(13+1)/2 = 4^3 + 3^3, therefore 91 is a term.
%t Sort[Select[Total/@Subsets[Range[300]^3,{2}],OddQ[Sqrt[8#+1]]&]] (* _Harvey P. Dale_, Oct 10 2014 *)
%Y Cf. A000217, A000578, A003108, A003325, A119977.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 03 2006
|
