cp's OEIS Frontend

A189362 a(n) = n + floor(n*r/s) + floor(n*t/s); r=1, s=sqrt(2), t=sqrt(3).

%I A189362 #10 Sep 22 2017 03:00:07
%S A189362 2,5,8,10,14,17,19,22,26,29,31,34,37,40,43,46,49,52,55,58,60,63,67,69,
%T A189362 72,75,79,81,84,87,89,93,96,99,101,105,108,110,113,116,119,122,125,
%U A189362 128,131,134,137,139,143,146,149,151,154,158,160,163,166,170,172,175,178,180,184,187,189,192,196,199,201,204,207,210,213,216,219,222,225,228,230,233,237,239,242,245
%N A189362 a(n) = n + floor(n*r/s) + floor(n*t/s); r=1, s=sqrt(2), t=sqrt(3).
%C A189362 See A189361.
%H A189362 G. C. Greubel, <a href="/A189362/b189362.txt">Table of n, a(n) for n = 1..1000</a>
%t A189362 r = 1; s = 2^(1/2); t = 3^(1/2);
%t A189362 a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
%t A189362 b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
%t A189362 c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
%t A189362 Table[a[n], {n, 1, 120}]  (*A189361*)
%t A189362 Table[b[n], {n, 1, 120}]  (*A189362*)
%t A189362 Table[c[n], {n, 1, 120}]  (*A189363*)
%Y A189362 Cf. A189361, A189363.
%K A189362 nonn
%O A189362 1,1
%A A189362 _Clark Kimberling_, Apr 20 2011