|
%I #11 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,93,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,134,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*r+h), where r=sqrt(2), h=-1/3; complement of A184623.
%H G. C. Greubel, <a href="/A184622/b184622.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = floor(n*r+h), where r=sqrt(2), h=-1/3.
%t r=2^(1/2); h=-1/3; Table[ Floor[n*r+h],{n,1,120}]
%o (PARI) vector(120, n, floor(n*sqrt(2) - 1/3)) \\ _G. C. Greubel_, Aug 18 2018
%o (Magma) [Floor(n*Sqrt(2) -1/3): n in [1..120]]; // _G. C. Greubel_, Aug 18 2018
%Y Cf. A184618, A184623.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 18 2011
|
