|
%I #9 Jun 01 2014 11:00:46
%S 1,28,36,496,300,36,1176,8128,3240,300,7260,2016,14196,1176,4950,
%T 130816,41616,3240,64980,25200,4851,7260,139656,131328,195000,14196,
%U 265356,270480,353220,25200,461280,2096128,29403,41616,1225,738720,936396
%N Smallest triangular number having n^2 as divisor.
%C a(n)=A000217(A080982(n)).
%H Donovan Johnson, <a href="/A080983/b080983.txt">Table of n, a(n) for n = 1..5000</a>
%t With[{trnos=Accumulate[Range[2500]]},Flatten[Table[Select[trnos, Divisible[ #,n^2]&,1],{n,40}]]] (* _Harvey P. Dale_, Jun 01 2014 *)
%o (Haskell)
%o a080983 = a000217 . a080982 -- _Reinhard Zumkeller_, Mar 23 2013
%Y Cf. A066561.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Feb 26 2003
|
