The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A022421 Kim-sums: "Kimberling sums" K_n + K_10. 1
 9, 26, 29, 31, 34, 37, 39, 42, 44, 47, 50, 52, 55, 58, 60, 63, 65, 68, 71, 73, 76, 78, 81, 84, 86, 89, 92, 94, 97, 99, 102, 105, 107, 110, 113, 115, 118, 120, 123, 126, 128, 131, 133, 136, 139, 141, 144, 147, 149, 152, 154, 157, 160, 162, 165, 167, 170, 173 (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: A022421 := proc(n)     if n = 0 then         9;     else         Kisum(n-1, 9) ;     end if; end proc: seq(A022421(n), n=0..80) ; # R. J. Mathar, Sep 03 2016 CROSSREFS Sequence in context: A209969 A144701 A255107 * A075395 A085367 A081267 Adjacent sequences:  A022418 A022419 A022420 * A022422 A022423 A022424 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 26 11:23 EST 2020. Contains 331279 sequences. (Running on oeis4.)