login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #20 Sep 08 2022 08:45:55

%S 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 36,37,39,40,42,43,44,46,47,49,50,51,53,54,56,57,59,60,61,63,64,66,67,

%U 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 a(n) = floor((n-1/4)*sqrt(2)), complement of A184581.

%H Clark Kimberling, <a href="/A184580/b184580.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = floor[(n-1/4)*sqrt(2)].

%t r=2^(1/2); c=1/4; s=r/(r-1);

%t Table[Floor[n*r-c*r],{n,1,120}] (* this sequence *)

%t Table[Floor[n*s+c*s],{n,1,120}] (* A184581 *)

%o (PARI) for(n=1, 30, print1(floor((n-1/4)*sqrt(2)), ", ")) \\ _G. C. Greubel_, Jan 27 2018

%o (Magma) [Floor((n-1/4)*Sqrt(2)): n in [1..30]]; // _G. C. Greubel_, Jan 27 2018

%Y Cf. A184581.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 17 2011

%E Edited by _Clark Kimberling_, Jun 09 2015