cp's OEIS Frontend

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

%I A184739 #4 Mar 30 2012 18:57:17
%S A184739 3,8,13,18,24,29,34,39,45,50,55,60,65,71,76,81,86,92,97,102,107,113,
%T A184739 118,123,128,134,139,144,149,154,160,165,170,175,181,186,191,196,202,
%U A184739 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 A184739 floor(n*s+h-h*s), where s=3+sqrt(5), h=1/2; complement of A184738.
%F A184739 a(n)=floor(n*s+h-h*s), where s=3+sqrt(5), h=1/2.
%t A184739 r=-1+sqrt(5); h=1/2; s=r/(r-1);
%t A184739 Table[Floor[n*r+h],{n,1,120}]  (* A184738*)
%t A184739 Table[Floor[n*s+h-h*s],{n,1,120}]  (*A184739 *)
%Y A184739 Cf. A184738.
%K A184739 nonn
%O A184739 1,1
%A A184739 _Clark Kimberling_, Jan 20 2011