This site is supported by donations to The OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A182653 Floor-sum sequence of r with r = golden ratio = (1+sqrt(5))/2 and a(1)=1, a(2)=2. 6
 1, 2, 4, 8, 9, 14, 16, 17, 19, 21, 24, 25, 27, 29, 30, 32, 33, 35, 37, 38, 40, 42, 43, 45, 46, 48, 50, 51, 53, 55, 56, 58, 59, 61, 63, 64, 66, 67, 69, 71, 72, 74, 76, 77, 79, 80, 82, 84, 85, 87, 88, 90, 92, 93, 95, 97, 98, 100, 101, 103, 105 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Let S be the set generated by these rules: (1) if m and n are in S and m j then                                 S := floor(r*(i+j)) ;                                 if is(S <= amax) then                                         anew := anew union { S };                                 end if;                         end if;                 end do:                 end do:                 if a union anew = a then                         return sort(a) ;                 end if;                 a := a union anew ;         end do: end proc: A182653(106) ; PROG (PARI) lista(nn) = my(S=[1, 2], r=(1+sqrt(5))/2, new, k); while(1, new=[]; for(m=1, #S, for(n=m+1, #S, k=floor(r*(S[m]+S[n])); if(k<=nn, new=setunion(new, [k])))); if(S==setunion(S, new), return(S)); S=setunion(S, new)) \\ Iain Fox, Apr 24 2019 CROSSREFS Cf. A182654, A182655, A182656. Sequence in context: A326672 A048300 A178953 * A036349 A155562 A048715 Adjacent sequences:  A182650 A182651 A182652 * A182654 A182655 A182656 KEYWORD nonn AUTHOR Clark Kimberling, Nov 26 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 16 07:30 EDT 2019. Contains 328051 sequences. (Running on oeis4.)