cp's OEIS Frontend

A189363 a(n) = n + [n*r/t] + [n*s/t]; r=1, s=sqrt(2), t=sqrt(3).

%I A189363 #11 Jun 15 2025 16:10:05
%S A189363 1,4,6,9,11,13,16,18,21,23,25,27,30,33,35,38,39,42,44,47,50,51,54,56,
%T A189363 59,62,64,66,68,71,73,76,78,80,83,85,88,90,92,95,97,100,102,104,106,
%U A189363 109,112,114,117,118,121,124,126,129,130,133,135,138,141,142,145,147,150,152,155,157,159,162,164,167,168,171,174,176,179,181,183,186,188,191,193,195,197,200
%N A189363 a(n) = n + [n*r/t] + [n*s/t]; r=1, s=sqrt(2), t=sqrt(3).
%C A189363 See A189362.
%H A189363 G. C. Greubel, <a href="/A189363/b189363.txt">Table of n, a(n) for n = 1..1000</a>
%t A189363 r = 1; s = 2^(1/2); t = 3^(1/2);
%t A189363 a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t A189363 b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t A189363 c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t A189363 Table[a[n], {n, 1, 120}]  (*A189361*)
%t A189363 Table[b[n], {n, 1, 120}]  (*A189362*)
%t A189363 Table[c[n], {n, 1, 120}]  (*A189363*)
%t A189363 Table[n+Floor[n/Sqrt[3]]+Floor[(n Sqrt[2])/Sqrt[3]],{n,100}] (* _Harvey P. Dale_, Jun 15 2025 *)
%Y A189363 Cf. A189361, A189362.
%K A189363 nonn
%O A189363 1,2
%A A189363 _Clark Kimberling_, Apr 20 2011