cp's OEIS Frontend

A184580 a(n) = floor((n-1/4)*sqrt(2)), complement of A184581.

%I A184580 #20 Sep 08 2022 08:45:55
%S A184580 1,2,3,5,6,8,9,10,12,13,15,16,18,19,20,22,23,25,26,27,29,30,32,33,35,
%T A184580 36,37,39,40,42,43,44,46,47,49,50,51,53,54,56,57,59,60,61,63,64,66,67,
%U A184580 68,70,71,73,74,76,77,78,80,81,83,84,85,87,88,90,91,92,94,95,97,98,100,101,102,104,105,107,108,109,111,112,114,115,117,118,119,121,122,124,125,126,128,129,131,132,133,135,136,138,139,141,142,143,145,146,148,149,150,152,153,155,156,158,159,160,162,163,165,166,167,169
%N A184580 a(n) = floor((n-1/4)*sqrt(2)), complement of A184581.
%H A184580 Clark Kimberling, <a href="/A184580/b184580.txt">Table of n, a(n) for n = 1..10000</a>
%F A184580 a(n) = floor[(n-1/4)*sqrt(2)].
%t A184580 r=2^(1/2); c=1/4; s=r/(r-1);
%t A184580 Table[Floor[n*r-c*r],{n,1,120}]  (* this sequence *)
%t A184580 Table[Floor[n*s+c*s],{n,1,120}]  (* A184581 *)
%o A184580 (PARI) for(n=1, 30, print1(floor((n-1/4)*sqrt(2)), ", ")) \\ _G. C. Greubel_, Jan 27 2018
%o A184580 (Magma) [Floor((n-1/4)*Sqrt(2)): n in [1..30]]; // _G. C. Greubel_, Jan 27 2018
%Y A184580 Cf. A184581.
%K A184580 nonn
%O A184580 1,2
%A A184580 _Clark Kimberling_, Jan 17 2011
%E A184580 Edited by _Clark Kimberling_, Jun 09 2015