cp's OEIS Frontend

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

%I A189397 #9 Sep 22 2017 03:00:27
%S A189397 1,3,5,7,9,11,13,15,17,19,21,22,25,27,29,31,32,35,36,39,41,42,45,46,
%T A189397 49,51,53,55,56,59,60,63,65,66,69,70,73,74,76,79,80,83,84,86,88,90,93,
%U A189397 94,97,98,100,103,104,107,108,110,112,114,117,118,120,122,124,126,128,130,132,134,136,138,139,142,144,146,148,150,152,154,156,158,160,162,163,166
%N A189397 a(n) = n + [n*r/t] + [n*s/t]; r=1, s=1/sqrt(2), t=sqrt(3).
%C A189397 See A189395.
%H A189397 G. C. Greubel, <a href="/A189397/b189397.txt">Table of n, a(n) for n = 1..1000</a>
%t A189397 r=1; s=2^(-1/2); t=3^(1/2);
%t A189397 a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t A189397 b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t A189397 c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t A189397 Table[a[n], {n, 1, 120}]  (*A189395*)
%t A189397 Table[b[n], {n, 1, 120}]  (*A189396*)
%t A189397 Table[c[n], {n, 1, 120}]  (*A189397*)
%Y A189397 Cf. A189395, A189396.
%K A189397 nonn
%O A189397 1,2
%A A189397 _Clark Kimberling_, Apr 21 2011