%I #6 Feb 27 2024 19:24:01
%S 2,5,8,11,15,18,21,24,28,31,34,37,40,44,47,50,53,57,60,63,66,70,73,76,
%T 79,83,86,89,92,95,99,102,105,108,112,115,118,121,125,128,131,134,138,
%U 141,144,147,150,154,157,160,163,167,170,173,176,180,183,186,189,193,196,199,202,205,209,212,215,218,222,225,228,231,235,238,241,244,248,251,254,257,261,264,267,270,273,277,280,283,286,290,293,296,299,303,306,309,312,316,319,322,325,328,332,335,338,341,345,348,351,354,358,361,364,367,371,374,377,380,383,387
%N floor(n*s+h-h*s), where s=1+sqrt(5), h=1/2; complement of A184746.
%F a(n)=floor(n*s+h-h*s), where s=1+sqrt(5), h=1/2.
%t r=1+5^(-1/2); h=1/2; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] ( *A184746 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184747 *)
%t Table[With[{c=1+Sqrt[5 ]},Floor[(2n*c+1-c)/2]],{n,120}] (* _Harvey P. Dale_, Feb 27 2024 *)
%Y A184746.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 20 2011