cp's OEIS Frontend

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

%I A189385 #9 Sep 22 2017 03:00:19
%S A189385 3,7,11,14,19,23,27,30,35,39,43,46,50,55,58,62,66,71,74,78,82,86,90,
%T A189385 94,98,102,106,110,114,117,121,126,130,133,137,142,146,149,153,157,
%U A189385 162,165,169,173,177,181,185,189,193,197,201,205,208,213,217,220,224,229,233,236,240,244,249,252,256,260,265,268,272,276,279,284,288,292,295,300,304,308,311,315,320,324,327
%N A189385 a(n) = n + [n*r/t] + [n*s/t]; r=1, s=1/sqrt(2), t=1/sqrt(3).
%C A189385 See A189383.
%H A189385 G. C. Greubel, <a href="/A189385/b189385.txt">Table of n, a(n) for n = 1..1000</a>
%t A189385 r=1; s=2^(-1/2); t=3^(-1/2);
%t A189385 a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t A189385 b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t A189385 c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t A189385 Table[a[n], {n, 1, 120}]  (*A189383*)
%t A189385 Table[b[n], {n, 1, 120}]  (*A189384*)
%t A189385 Table[c[n], {n, 1, 120}]  (*A189385*)
%Y A189385 Cf. A189383, A189384.
%K A189385 nonn
%O A189385 1,1
%A A189385 _Clark Kimberling_, Apr 21 2011