A189387 - OEIS

%I #8 Oct 20 2017 14:55:29

%S 1,3,6,7,10,12,13,16,18,21,22,24,27,28,31,33,35,37,39,42,43,45,48,49,

%T 52,54,57,58,60,63,64,67,69,71,73,75,78,79,81,84,85,88,90,92,94,96,99,

%U 100,103,105,107,109,111,114,115,117,120,122,124,126,128,130,132,135,136,138,141,143,145,147,149,151,153,156,158,160,162,164,166,168,171,172,174,177

%N a(n) = n+[nr/s]+[nt/s]; r=1, s=sqrt(2), t=1/sqrt(3).

%C See A189386.

%H G. C. Greubel, <a href="/A189387/b189387.txt">Table of n, a(n) for n = 1..5000</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}]  (*A189386*)

%t Table[b[n], {n, 1, 120}]  (*A189387*)

%t Table[c[n], {n, 1, 120}]  (*A189388*)

%Y Cf. A189386, A189388, A189361, A189383, A189395.

%K nonn

%O 1,2

%A _Clark Kimberling_, Apr 21 2011