cp's OEIS Frontend

A184623 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=-1/3; complement of A184622.

%I A184623 #10 Sep 08 2022 08:45:55
%S A184623 4,7,11,14,17,21,24,28,31,34,38,41,45,48,52,55,58,62,65,69,72,75,79,
%T A184623 82,86,89,92,96,99,103,106,110,113,116,120,123,127,130,133,137,140,
%U A184623 144,147,151,154,157,161,164,168,171,174,178,181,185,188,192,195,198,202,205,209,212,215,219,222,226,229,232,236,239,243,246,250,253,256,260,263,267,270,273,277,280,284,287,291,294,297,301,304,308,311,314,318,321,325,328,331,335,338,342,345,349,352,355,359,362,366,369,372,376,379,383,386,390,393,396,400
%N A184623 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=-1/3; complement of A184622.
%H A184623 G. C. Greubel, <a href="/A184623/b184623.txt">Table of n, a(n) for n = 1..10000</a>
%F A184623 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=-1/3.
%t A184623 r=2^(1/2); h=-1/3; s=r/(r-1);
%t A184623 Table[Floor[n*r+h],{n,1,120}]  (* A184622 *)
%t A184623 Table[Floor[n*s+h-h*s],{n,1,120}]  (* A184623 *)
%o A184623 (PARI) vector(120, n, floor((n+1/3)*(2+sqrt(2)) - 1/3)) \\ _G. C. Greubel_, Aug 18 2018
%o A184623 (Magma) [Floor((n+1/3)*(2+Sqrt(2)) - 1/3): n in [1..120]]; // _G. C. Greubel_, Aug 18 2018
%Y A184623 Cf. A184618, A184622.
%K A184623 nonn
%O A184623 1,1
%A A184623 _Clark Kimberling_, Jan 18 2011