|
%I #9 Aug 31 2021 08:33:25
%S 2,4,6,7,9,11,13,15,16,18,20,22,24,25,27,29,31,33,34,36,38,40,42,44,
%T 45,47,49,51,53,54,56,58,60,62,63,65,67,69,71,72,74,76,78,80,82,83,85,
%U 87,89,91,92,94,96,98,100,101,103,105,107,109,110,112,114,116,118,119,121,123,125,127,129,130,132,134,136,138,139,141,143,145,147,148,150,152,154,156,157,159,161,163,165,167,168,170,172,174,176,177,179,181,183,185,186,188,190,192,194,195,197,199,201,203,205,206,208,210,212,214,215,217
%N a(n) = floor(n*s + c*s), where r = sqrt(5), c = 1/3, s = r/(r-1); complement of A184584.
%t r=5^(1/2);c=1/3;s=r/(r-1);
%t Table[Floor[n*r-c*r],{n,1,120}] (* A184584 *)
%t Table[Floor[n*s+c*s],{n,1,120}] (* A184585 *)
%Y Cf. A184584.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 17 2011
%E Definition corrected by _Georg Fischer_, Aug 31 2021
|
