%I #16 Apr 08 2022 11:10:42
%S 1,3,4,6,8,10,11,13,15,17,18,20,22,24,25,27,29,31,33,34,36,38,40,41,
%T 43,45,47,48,50,52,54,55,57,59,61,63,64,66,68,70,71,73,75,77,78,80,82,
%U 84,85,87,89,91,92,94,96,98,100,101,103,105,107,108,110,112,114,115,117,119,121,122,124,126,128,130,131,133
%N a(n) = floor(n*r + h), where r = 4 - sqrt(5), h = -1/2. Also, complement of A184749.
%H Adam Hugill, <a href="/A184748/b184748.txt">Table of n, a(n) for n = 1..10000</a>
%t r=4-5^(1/2); h=-1/2; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184748 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184749 *)
%o (Python)
%o from math import floor, sqrt
%o r=4-sqrt(5)
%o h=-1/2
%o n=50 #number of terms
%o result = []
%o for i in range(1, n+1):
%o ans = floor(i*r+h)
%o result.append(ans)
%o print(result)
%o # _Adam Hugill_, Feb 23 2022
%Y Cf. A184749.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 20 2011
|