cp's OEIS Frontend

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

%I A189388 #9 Oct 20 2017 15:01:33
%S A189388 4,9,15,19,25,30,36,40,46,51,56,61,66,72,76,82,87,93,97,102,108,113,
%T A189388 118,123,129,134,139,144,150,154,159,165,170,175,180,186,191,196,201,
%U A189388 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 A189388 a(n) = n+[nr/t]+[ns/t]; r=1, s=sqrt(2), t=1/sqrt(3).
%H A189388 G. C. Greubel, <a href="/A189388/b189388.txt">Table of n, a(n) for n = 1..5000</a>
%t A189388 r=1; s=2^(1/2); t=3^(-1/2);
%t A189388 a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t A189388 b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t A189388 c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t A189388 Table[a[n], {n, 1, 120}]  (*A189386*)
%t A189388 Table[b[n], {n, 1, 120}]  (*A189387*)
%t A189388 Table[c[n], {n, 1, 120}]  (*A189388*)
%Y A189388 Cf. A189386, A189387, A189361, A189383, A189395.
%K A189388 nonn
%O A189388 1,1
%A A189388 _Clark Kimberling_, Apr 21 2011