|
%I #9 Sep 22 2017 03:00:16
%S 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 80,83,87,89,93,96,99,103,105,109,112,115,119,122,125,128,131,135,138,
%U 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 a(n) = n + [n*r/s] + [n*t/s]; r=1, s=1/sqrt(2), t=1/sqrt(3).
%C See A189383.
%H G. C. Greubel, <a href="/A189384/b189384.txt">Table of n, a(n) for n = 1..1000</a>
%t r=1; s=2^(-1/2); t=3^(-1/2);
%t a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t Table[a[n], {n, 1, 120}] (*A189383*)
%t Table[b[n], {n, 1, 120}] (*A189384*)
%t Table[c[n], {n, 1, 120}] (*A189385*)
%Y Cf. A189383, A189385.
%K nonn
%O 1,1
%A _Clark Kimberling_, Apr 21 2011
|
