A014249 a(n) = b(n) - c(n) where b(n) = [n*sqrt(2)] + [n*sqrt(3)] and c(n) is the n-th number not in sequence b.

1, 2, 5, 5, 8, 10, 11, 12, 14, 17, 18, 19, 21, 23, 24, 26, 28, 30, 30, 33, 35, 37, 38, 39, 41, 43, 45, 46, 49, 49, 51, 53, 55, 56, 58, 60, 62, 63, 65, 66, 68, 70, 71, 74, 74, 77, 79, 80, 81, 83, 85, 87, 88, 90, 92, 93, 95, 97, 99, 99, 102, 104, 106, 106, 108, 110

Offset

1,2

Links

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

Mathematica

m:= 80; c:= Complement[Range[2*m], Floor[Range[2*m]*Sqrt[2]] + Floor[Range[2*m]*Sqrt[3]]]; Table[Floor[n*Sqrt[2]] + Floor[n*Sqrt[3]] - c[[n]], {n, m}] (* G. C. Greubel, Jun 19 2019 *)

Crossrefs

Cf. A001951, A022838.

Sequence in context: A168199 A251736 A076520 * A168071 A361861 A330447

Adjacent sequences: A014246 A014247 A014248 * A014250 A014251 A014252

Keyword

nonn

Author

Clark Kimberling

Status

approved