cp's OEIS Frontend

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

%I A189384 #9 Sep 22 2017 03:00:16
%S A189384 2,5,9,12,16,18,21,25,28,32,34,37,41,44,48,51,54,57,60,64,67,70,73,76,
%T A189384 80,83,87,89,93,96,99,103,105,109,112,115,119,122,125,128,131,135,138,
%U A189384 141,144,148,151,154,158,160,164,167,170,174,176,180,183,187,190,192,196,199,203,206,209,212,215,219,222,225,228,231,235,238,242,245,247,251,254,258,261,263,267
%N A189384 a(n) = n + [n*r/s] + [n*t/s]; r=1, s=1/sqrt(2), t=1/sqrt(3).
%C A189384 See A189383.
%H A189384 G. C. Greubel, <a href="/A189384/b189384.txt">Table of n, a(n) for n = 1..1000</a>
%t A189384 r=1; s=2^(-1/2); t=3^(-1/2);
%t A189384 a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t A189384 b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t A189384 c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t A189384 Table[a[n], {n, 1, 120}]  (*A189383*)
%t A189384 Table[b[n], {n, 1, 120}]  (*A189384*)
%t A189384 Table[c[n], {n, 1, 120}]  (*A189385*)
%Y A189384 Cf. A189383, A189385.
%K A189384 nonn
%O A189384 1,1
%A A189384 _Clark Kimberling_, Apr 21 2011