This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A259598 Number of representations of n as u(h) + v(k), where u = A000201 (lower Wythoff numbers), v = A001950 (upper Wythoff numbers), h>=1, k>=1. 3
 0, 0, 1, 0, 1, 2, 0, 3, 1, 2, 4, 0, 4, 4, 1, 6, 2, 4, 7, 0, 8, 4, 4, 9, 1, 8, 8, 2, 11, 4, 7, 12, 0, 12, 9, 4, 14, 4, 10, 14, 1, 16, 8, 8, 17, 2, 15, 14, 4, 19, 7, 12, 20, 0, 21, 12, 9, 22, 4, 18, 19, 4, 24, 10, 14, 25, 1, 24, 18, 8, 27, 8, 19, 26, 2, 29, 15 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,6 COMMENTS Three conjectures. The numbers that are not a sum u(h) + v(k) are (1,2,4,7,12, ...) = A000071 = -1 + Fibonacci numbers. The numbers that have exactly one such representation are (3, 5, 9, 15, 25, 41, ...) = A001595. The numbers that have exactly two such representations are (6, 10, 17, 28, 46, ...) = A001610. LINKS FORMULA G.f.: [Sum_{n>=1} x^floor(n*phi)] * [Sum_{n>=1} x^floor(n*phi^2)], where phi = (1+sqrt(5))/2. - Paul D. Hanna, Dec 02 2017 G.f.: [Sum_{n>=1} x^A000201(n)] * [Sum_{n>=1} x^A001950(n)], where A000201 and A001950 are the lower and upper Wythoff sequences, respectively. - Paul D. Hanna, Dec 02 2017 MATHEMATICA r = GoldenRatio; z = 500; u[n_] := u[n] = Floor[n*r]; v[n_] := v[n] = Floor[n*r^2]; s[m_, n_] := s[m, n] = u[m] + v[n]; t = Table[s[m, n], {m, 1, z}, {n, 1, z}]; w = Flatten[Table[Count[Flatten[t], n], {n, 1, z/5}]]  (* A259598 *) PROG (PARI) {a(n) = my(phi = (1 + sqrt(5))/2, WL=1, WU=1); WL = sum(m=1, floor(n/phi)+1, x^floor(m*phi) +x*O(x^n)); WU = sum(m=1, floor(n/phi^2)+1, x^floor(m*phi^2) +x*O(x^n)); polcoeff(WL*WU, n)} for(n=1, 120, print1(a(n), ", ")) \\ Paul D. Hanna, Dec 02 2017 CROSSREFS Cf. A259556, A000071, A001595, A001610, A295540. Sequence in context: A302193 A133925 A071492 * A096067 A098861 A177878 Adjacent sequences:  A259595 A259596 A259597 * A259599 A259600 A259601 KEYWORD nonn,easy AUTHOR Clark Kimberling, Jul 22 2015 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 July 19 22:14 EDT 2019. Contains 325168 sequences. (Running on oeis4.)