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,1

Links

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

Formula

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

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 *)

Prog

(PARI) vector(70, n, (n*(sqrt(2)+sqrt(3)))\1 -(n*(sqrt(2)+sqrt(6)+2)/4)\1) \\ G. C. Greubel, Jun 19 2019
(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
(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

Crossrefs

Cf. A110117, A110118.

Sequence in context: A223735 A123663 A174131 * A174799 A248566 A091627

Adjacent sequences: A014245 A014246 A014247 * A014249 A014250 A014251

Keyword

nonn

Author

Clark Kimberling

Status

approved