A014248 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( ).

2, 4, 5, 7, 8, 10, 12, 14, 15, 17, 18, 20, 21, 24, 26, 27, 29, 30, 32, 33, 36, 37, 39, 40, 42, 43, 45, 47, 49, 51, 52, 54, 55, 57, 59, 61, 62, 64, 65, 67, 68, 71, 72, 74, 76, 77, 79, 81, 83, 84, 86, 87, 89, 90, 93, 94, 96, 97, 99, 101, 102, 105, 106, 108, 109, 111

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A110117, A110118.

Programs

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

Mathematica

Table[Floor[n*(Sqrt[2]+Sqrt[3])] - Floor[n*(Sqrt[2]+Sqrt[6]+2)/4], {n, 1, 70}] (* G. C. Greubel, Jun 19 2019 *)

PARI

vector(70, n,(n*(sqrt(2)+sqrt(3)))\1 -(n*(sqrt(2)+sqrt(6)+2)/4)\1) \\ G. C. Greubel, Jun 19 2019

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

Formula

a(n) = A110117(n) - A110118(n). - Sean A. Irvine, Oct 17 2018