|
%I #11 Jan 21 2020 09:06:17
%S 3,1,3,6,1,4,8,13,4,9,15,3,9,16,1,8,16,25,6,15,25,3,13,24,36,10,22,35,
%T 6,19,33,1,15,30,46,10,26,43,4,21,39,58,15,34,54,8,28,49,71,21,43,66,
%U 13,36,60,4,28,53,79,19,45,72,9,36,64,93,26,55,85,15,45,76,3,34,66,99,22
%N Difference between triangular number and next perfect square.
%C If a(n)=1 then such n gives the sequence A006451 (triangular numbers whose distance to the nearest bigger perfect square is 1). [From _Ctibor O. Zizka_, Oct 07 2009]
%H Robert Israel, <a href="/A128549/b128549.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = (floor(sqrt(n(n+1)/2))+1)^2-n(n+1)/2.
%e a(1)=2^2-1(1+1)/2=3, a(2)=2^2-2(2+1)/2=1, a(3)=3^2-3(3+1)/2=3, a(3)=4^2-4(4+1)/2=6.
%p f:= n -> (floor(sqrt(n*(n+1)/2))+1)^2-n*(n+1)/2:
%p map(f, [$1..100]); # _Robert Israel_, Jan 21 2020
%t Table[(Floor[Sqrt[n(n+1)/2]]+1)^2-n(n+1)/2,{n,100}]
%t (Floor[Sqrt[#]]+1)^2-#&/@Accumulate[Range[100]] (* _Harvey P. Dale_, Oct 15 2014 *)
%Y Cf. A000217, A000290, A006451.
%K nonn
%O 1,1
%A _Zak Seidov_, May 08 2007
|
