%I #26 May 06 2022 07:34:47
%S 1,3,7,12,19,27,36,47,59,73,88,104,122,141,162,184,208,233,259,287,
%T 316,347,379,412,447,483,521,560,601,643,686,731,777,825,874,924,976,
%U 1029,1084,1140,1197,1256,1316,1378,1441,1506,1572,1639,1708,1778
%N a(n) = Sum_{j=1..n} floor(j*sqrt(2)); n-th partial sum of Beatty sequence for sqrt(2), A001951.
%C The natural fractal sequence of A194102 is A194103; the natural interspersion is A194104. See A194029 for definitions.
%H G. C. Greubel, <a href="/A194102/b194102.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = B*(B+1)/2 - C*(C+1) - a(C) where B = floor(sqrt(2)*n) and C = floor(B/(sqrt(2)+2)). - _M. F. Hasler_, Apr 23 2022
%t a[n_]:=Sum[Floor[j*Sqrt[2]], {j, 1, n}]; Table[a[n], {n, 1, 90}]
%o (PARI) apply( A194102(n)=sum(k=1,n,sqrtint(k^2*2)), [1..99]) \\ _M. F. Hasler_, Jan 16 2021
%o (PARI) apply( {A194102(n)=if(n>1, (1+n=sqrtint(n^2*2))*n\2-A194102(n-=sqrtint(n^2\2)+1)-(1+n)*n, n)}, [1..99]) \\ _M. F. Hasler_, Apr 23 2022
%o (Magma) [(&+[Floor(k*Sqrt(2)): k in [1..n]]): n in [1..100]]; // _G. C. Greubel_, Jun 05 2018
%Y Cf. A001951, A194029, A194103, A194104.
%K nonn
%O 1,2
%A _Clark Kimberling_, Aug 15 2011