%I #4 Mar 30 2012 18:57:17

%S 3,8,13,18,24,29,34,39,45,50,55,60,65,71,76,81,86,92,97,102,107,113,

%T 118,123,128,134,139,144,149,154,160,165,170,175,181,186,191,196,202,

%U 207,212,217,223,228,233,238,243,249,254,259,264,270,275,280,285,291,296,301,306,312,317,322,327,332,338,343,348,353,359,364,369,374,380,385,390,395,401,406,411,416,422,427,432,437,442,448,453,458,463,469,474,479,484,490,495,500,505,511,516,521,526,531,537,542,547,552,558,563,568,573,579,584,589,594,600,605,610,615,620,626

%N floor(n*s+h-h*s), where s=3+sqrt(5), h=1/2; complement of A184738.

%F a(n)=floor(n*s+h-h*s), where s=3+sqrt(5), h=1/2.

%t r=-1+sqrt(5); h=1/2; s=r/(r-1);

%t Table[Floor[n*r+h],{n,1,120}] (* A184738*)

%t Table[Floor[n*s+h-h*s],{n,1,120}] (*A184739 *)

%Y Cf. A184738.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 20 2011