|
%I #15 Jun 08 2019 17:58:55
%S 1,2,3,4,4,5,6,6,7,8,9,9,10,11,11,12,13,14,14,15,16,16,17,18,19,19,20,
%T 21,21,22,23,23,24,25,26,26,27,28,28,29,30,31,31,32,33,33,34,35,35,36,
%U 37,38,38,39,40,40,41,42,43,43,44,45,45,46,47,48,48,49,50,50,51,52,52
%N Least m such that m^2 >= n*(n+1)/2.
%H Harvey P. Dale, <a href="/A080820/b080820.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A080819(n)^(1/2).
%F a(n) = ceiling(sqrt(n*(n+1)/2)) - C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 19 2004
%p seq(ceil(sqrt(n*(n+1)/2)),n=1..80); # C. Ronaldo
%t lst = {}; m = 1; Do[While[n*(n + 1)/2 > m^2, m++]; AppendTo[lst, m], {n, 69}]; lst (* _Arkadiusz Wesolowski_, Jul 18 2012 *)
%t Ceiling[Sqrt[#]]&/@Accumulate[Range[80]] (* _Harvey P. Dale_, Feb 10 2016 *)
%Y Cf. A080817, A080818, A080819.
%K easy,nonn
%O 1,2
%A _Amarnath Murthy_, Mar 21 2003
%E More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 19 2004
%E Name changed by _Arkadiusz Wesolowski_, Jul 18 2012
|
