The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A184623 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=-1/3; complement of A184622. 2

%I

%S 4,7,11,14,17,21,24,28,31,34,38,41,45,48,52,55,58,62,65,69,72,75,79,

%T 82,86,89,92,96,99,103,106,110,113,116,120,123,127,130,133,137,140,

%U 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 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=-1/3; complement of A184622.

%H G. C. Greubel, <a href="/A184623/b184623.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=-1/3.

%t r=2^(1/2); h=-1/3; s=r/(r-1);

%t Table[Floor[n*r+h],{n,1,120}] (* A184622 *)

%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184623 *)

%o (PARI) vector(120, n, floor((n+1/3)*(2+sqrt(2)) - 1/3)) \\ _G. C. Greubel_, Aug 18 2018

%o (MAGMA) [Floor((n+1/3)*(2+Sqrt(2)) - 1/3): n in [1..120]]; // _G. C. Greubel_, Aug 18 2018

%Y Cf. A184618, A184622.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 18 2011

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 25 06:46 EST 2020. Contains 332220 sequences. (Running on oeis4.)