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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A022419 Kim-sums: "Kimberling sums" K_n + K_8. 1
7, 20, 23, 9, 28, 31, 12, 36, 14, 41, 44, 17, 49, 52, 54, 57, 22, 62, 65, 25, 70, 27, 75, 78, 30, 83, 86, 33, 91, 35, 96, 99, 38, 104, 107, 109, 112, 43, 117, 120, 46, 125, 48, 130, 133, 51, 138, 141, 143, 146, 56, 151, 154, 59, 159, 61, 164, 167, 64, 172, 175 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

REFERENCES

Posting to math-fun mailing list Jan 10 1997.

LINKS

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

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:

A022419 := proc(n)

    if n = 0 then

        7;

    else

        Kisum(n-1, 7) ;

    end if;

end proc:

seq(A022419(n), n=0..80) ; # R. J. Mathar, Sep 03 2016

CROSSREFS

Sequence in context: A284897 A209553 A037005 * A070413 A015243 A055069

Adjacent sequences:  A022416 A022417 A022418 * A022420 A022421 A022422

KEYWORD

nonn

AUTHOR

Marc LeBrun

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 20 18:17 EST 2022. Contains 350472 sequences. (Running on oeis4.)