cp's OEIS Frontend

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

%I A189387 #8 Oct 20 2017 14:55:29
%S A189387 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 A189387 52,54,57,58,60,63,64,67,69,71,73,75,78,79,81,84,85,88,90,92,94,96,99,
%U A189387 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 A189387 a(n) = n+[nr/s]+[nt/s]; r=1, s=sqrt(2), t=1/sqrt(3).
%C A189387 See A189386.
%H A189387 G. C. Greubel, <a href="/A189387/b189387.txt">Table of n, a(n) for n = 1..5000</a>
%t A189387 r=1; s=2^(1/2); t=3^(-1/2);
%t A189387 a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t A189387 b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t A189387 c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t A189387 Table[a[n], {n, 1, 120}]  (*A189386*)
%t A189387 Table[b[n], {n, 1, 120}]  (*A189387*)
%t A189387 Table[c[n], {n, 1, 120}]  (*A189388*)
%Y A189387 Cf. A189386, A189388, A189361, A189383, A189395.
%K A189387 nonn
%O A189387 1,2
%A A189387 _Clark Kimberling_, Apr 21 2011