|
%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
|
