login
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

%I #14 Jun 20 2019 09:09:45

%S 1,2,5,5,8,10,11,12,14,17,18,19,21,23,24,26,28,30,30,33,35,37,38,39,

%T 41,43,45,46,49,49,51,53,55,56,58,60,62,63,65,66,68,70,71,74,74,77,79,

%U 80,81,83,85,87,88,90,92,93,95,97,99,99,102,104,106,106,108,110

%N 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.

%H G. C. Greubel, <a href="/A014249/b014249.txt">Table of n, a(n) for n = 1..1000</a>

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

%Y Cf. A001951, A022838.

%K nonn

%O 1,2

%A _Clark Kimberling_