cp's OEIS Frontend

A184619 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=1/3; complement of A184618.

%I A184619 #12 Sep 08 2022 08:45:55
%S A184619 2,6,9,12,16,19,23,26,29,33,36,40,43,46,50,53,57,60,64,67,70,74,77,81,
%T A184619 84,87,91,94,98,101,105,108,111,115,118,122,125,128,132,135,139,142,
%U A184619 146,149,152,156,159,163,166,169,173,176,180,183,186,190,193,197,200,204,207,210,214,217,221,224,227
%N A184619 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=1/3; complement of A184618.
%H A184619 G. C. Greubel, <a href="/A184619/b184619.txt">Table of n, a(n) for n = 1..10000</a>
%F A184619 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=1/3.
%t A184619 r=2^(1/2); h=1/3; s=r/(r-1);
%t A184619 Table[Floor[n*r+h],{n,1,120}]  (* A184618 *)
%t A184619 Table[Floor[n*s+h-h*s],{n,1,120}]  (* A184619 *)
%o A184619 (PARI) for(n=1, 100, print1(floor(n*sqrt(2)/(sqrt(2)-1) - sqrt(2)/(3*sqrt(2) - 3) + 1/3), ", ")) \\ _G. C. Greubel_, Apr 20 2018
%o A184619 (Magma) [Floor(n*Sqrt(2)/(Sqrt(2) - 1) - Sqrt(2)/(3*Sqrt(2) - 3) + 1/3): n in [1..100]]; // _G. C. Greubel_, Apr 20 2018
%Y A184619 Cf. A184618.
%K A184619 nonn
%O A184619 1,1
%A A184619 _Clark Kimberling_, Jan 18 2011