|
%I #11 Sep 08 2022 08:45:55
%S 4,7,10,14,17,21,24,27,31,34,38,41,44,48,51,55,58,62,65,68,72,75,79,
%T 82,85,89,92,96,99,103,106,109,113,116,120,123,126,130,133,137,140,
%U 144,147,150,154,157,161,164,167,171,174,178,181,184,188,191,195,198,202,205,208,212,215,219,222,225,229
%N a(n) = floor((n-h)*s +h), where s=2+sqrt(2) and h=-1/4; complement of A184624.
%H G. C. Greubel, <a href="/A184625/b184625.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = floor[(n-h)*s +h], where s=2+sqrt(2) and h=-1/4.
%t r=2^(1/2); h=-1/4; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184624 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184625 *)
%o (PARI) for(n=1, 100, print1(floor(n*sqrt(2)/(sqrt(2)-1) + sqrt(2)/(4*sqrt(2) - 4) - 1/4), ", ")) \\ _G. C. Greubel_, Apr 20 2018
%o (Magma) [Floor(n*Sqrt(2)/(Sqrt(2) - 1) + Sqrt(2)/(4*Sqrt(2) - 4) - 1/4): n in [1..100]]; // _G. C. Greubel_, Apr 20 2018
%Y Cf. A184618, A184624.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 18 2011
|
