%I #13 Sep 08 2022 08:44:39
%S 2,4,5,7,8,10,12,14,15,17,18,20,21,24,26,27,29,30,32,33,36,37,39,40,
%T 42,43,45,47,49,51,52,54,55,57,59,61,62,64,65,67,68,71,72,74,76,77,79,
%U 81,83,84,86,87,89,90,93,94,96,97,99,101,102,105,106,108,109,111
%N a(n) = b(n) - c(n) where b(n) = [ n*(sqrt(2)+sqrt(3)) ] and c(n) is the n-th number not in sequence b( ).
%H G. C. Greubel, <a href="/A014248/b014248.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A110117(n) - A110118(n). - _Sean A. Irvine_, Oct 17 2018
%t Table[Floor[n*(Sqrt[2]+Sqrt[3])] - Floor[n*(Sqrt[2]+Sqrt[6]+2)/4], {n, 1, 70}] (* _G. C. Greubel_, Jun 19 2019 *)
%o (PARI) vector(70, n,(n*(sqrt(2)+sqrt(3)))\1 -(n*(sqrt(2)+sqrt(6)+2)/4)\1) \\ _G. C. Greubel_, Jun 19 2019
%o (Magma) [Floor(n*(Sqrt(2)+Sqrt(3))) - Floor(n*(Sqrt(2)+Sqrt(6)+2)/4): n in [1..70]]; // _G. C. Greubel_, Jun 19 2019
%o (Sage) [floor(n*(sqrt(2)+sqrt(3))) - floor(n*(sqrt(2)+sqrt(6)+2)/4) for n in (1..70)] # _G. C. Greubel_, Jun 19 2019
%Y Cf. A110117, A110118.
%K nonn
%O 1,1
%A _Clark Kimberling_