|
%I #9 Oct 20 2017 15:01:33
%S 4,9,15,19,25,30,36,40,46,51,56,61,66,72,76,82,87,93,97,102,108,113,
%T 118,123,129,134,139,144,150,154,159,165,170,175,180,186,191,196,201,
%U 206,212,216,222,227,232,237,243,248,253,258,263,269,273,279,284,289,294,300,305,309,315,320,326,330,336,341,347,351,357,362,366,372,377,383,387,393,398,404,408,413,419,424,429
%N a(n) = n+[nr/t]+[ns/t]; r=1, s=sqrt(2), t=1/sqrt(3).
%H G. C. Greubel, <a href="/A189388/b189388.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, A189387, A189361, A189383, A189395.
%K nonn
%O 1,1
%A _Clark Kimberling_, Apr 21 2011
|
