cp's OEIS Frontend

A184620 a(n) = floor(nr+h), where r=sqrt(2), h=1/4; complement of A184621.

%I A184620 #10 Sep 08 2022 08:45:55
%S A184620 1,3,4,5,7,8,10,11,12,14,15,17,18,20,21,22,24,25,27,28,29,31,32,34,35,
%T A184620 37,38,39,41,42,44,45,46,48,49,51,52,53,55,56,58,59,61,62,63,65,66,68,
%U A184620 69,70,72,73,75,76,78,79,80,82,83,85,86,87,89,90,92,93,95,96,97,99,100,102,103,104,106,107,109,110,111,113,114,116,117,119,120,121,123,124,126,127,128,130,131,133,134,136,137,138,140,141,143,144,145,147,148,150,151,152,154,155,157,158,160,161,162,164,165,167,168,169
%N A184620 a(n) = floor(nr+h), where r=sqrt(2), h=1/4; complement of A184621.
%H A184620 G. C. Greubel, <a href="/A184620/b184620.txt">Table of n, a(n) for n = 1..10000</a>
%F A184620 a(n) = floor(n*r+h), where r=sqrt(2), h=1/4.
%t A184620 r=2^(1/2); h=1/4; s=r/(r-1);
%t A184620 Table[Floor[n*r+h],{n,1,120}]  (* A184620 *)
%t A184620 Table[Floor[n*s+h-h*s],{n,1,120}]  (* A184621 *)
%o A184620 (PARI) vector(120, n, floor(n*sqrt(2) + 1/4)) \\ _G. C. Greubel_, Aug 18 2018
%o A184620 (Magma) [Floor(n*Sqrt(2) + 1/4): n in [1..120]]; // _G. C. Greubel_, Aug 18 2018
%Y A184620 Cf. A184618, A184521.
%K A184620 nonn
%O A184620 1,2
%A A184620 _Clark Kimberling_, Jan 18 2011