cp's OEIS Frontend

A189396 a(n) = n + [n*r/s] + [n*t/s]; r=1, s=1/sqrt(2), t=sqrt(3).

%I A189396 #9 Sep 22 2017 03:00:25
%S A189396 4,8,14,18,24,28,33,38,43,48,52,57,62,67,72,77,82,87,91,96,101,106,
%T A189396 111,115,121,125,131,135,141,145,149,155,159,165,169,174,179,184,189,
%U A189396 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 A189396 a(n) = n + [n*r/s] + [n*t/s]; r=1, s=1/sqrt(2), t=sqrt(3).
%C A189396 See A189395.
%H A189396 G. C. Greubel, <a href="/A189396/b189396.txt">Table of n, a(n) for n = 1..1000</a>
%t A189396 r=1; s=2^(-1/2); t=3^(1/2);
%t A189396 a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t A189396 b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t A189396 c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t A189396 Table[a[n], {n, 1, 120}]  (*A189395*)
%t A189396 Table[b[n], {n, 1, 120}]  (*A189396*)
%t A189396 Table[c[n], {n, 1, 120}]  (*A189397*)
%Y A189396 Cf. A189395, A189397.
%K A189396 nonn
%O A189396 1,1
%A A189396 _Clark Kimberling_, Apr 21 2011