The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A022417 Kim-sums: "Kimberling sums" K_n + K_6. 1
 5, 15, 18, 20, 23, 26, 28, 31, 12, 36, 39, 41, 44, 47, 49, 52, 54, 57, 60, 62, 65, 25, 70, 73, 75, 78, 81, 83, 86, 33, 91, 94, 96, 99, 102, 104, 107, 109, 112, 115, 117, 120, 46, 125, 128, 130, 133, 136, 138, 141, 143, 146, 149, 151, 154, 59, 159, 162, 164, 167, 170, 172 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 REFERENCES Posting to math-fun mailing list Jan 10 1997. LINKS MAPLE Ki := proc(n, i) option remember; local phi ; phi := (1+sqrt(5))/2 ; if i= 0 then n; elif i=1 then floor((n+1)*phi) ; else procname(n, i-1)+procname(n, i-2) ; end if; end proc: Kisum := proc(n, m) local ks, a, i; ks := [seq( Ki(n, i)+Ki(m, i), i=0..5)] ; for i from 0 to 2 do for a from 0 do if Ki(a, 0) = ks[i+1] and Ki(a, 1) = ks[i+2] then return a; end if; if Ki(a, 0) > ks[i+1] then break; end if; end do: end do: end proc: A022417 := proc(n) if n = 0 then 5; else Kisum(n-1, 5) ; end if; end proc: seq(A022417(n), n=0..80) ; # R. J. Mathar, Sep 03 2016 CROSSREFS Sequence in context: A231720 A134453 A174598 * A102180 A045520 A032472 Adjacent sequences: A022414 A022415 A022416 * A022418 A022419 A022420 KEYWORD nonn AUTHOR STATUS approved

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

Last modified March 21 18:35 EDT 2023. Contains 361410 sequences. (Running on oeis4.)