|
%I #9 Sep 22 2017 03:00:25
%S 4,8,14,18,24,28,33,38,43,48,52,57,62,67,72,77,82,87,91,96,101,106,
%T 111,115,121,125,131,135,141,145,149,155,159,165,169,174,179,184,189,
%U 193,198,203,208,213,218,223,228,232,238,242,247,252,256,262,266,272,276,282,286,290,296,300,306,310,315,320,325,330,335,339,344,349,354,359,364,369,373,379,383,388,393,397,403
%N a(n) = n + [n*r/s] + [n*t/s]; r=1, s=1/sqrt(2), t=sqrt(3).
%C See A189395.
%H G. C. Greubel, <a href="/A189396/b189396.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}] (*A189395*)
%t Table[b[n], {n, 1, 120}] (*A189396*)
%t Table[c[n], {n, 1, 120}] (*A189397*)
%Y Cf. A189395, A189397.
%K nonn
%O 1,1
%A _Clark Kimberling_, Apr 21 2011
|
