A022421 Kim-sums: "Kimberling sums" K_n + K_10.

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

Offset

0,1

References

Posting to math-fun mailing list Jan 10 1997.

Links

Table of n, a(n) for n=0..57.

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 A352775 A085367

Adjacent sequences: A022418 A022419 A022420 * A022422 A022423 A022424

Keyword

nonn

Author

Marc LeBrun

Status

approved