A050122 Numbers of the form Fibonacci(i)*Lucas(j), i <= j.

0, 1, 3, 4, 7, 8, 11, 14, 18, 21, 22, 29, 33, 36, 47, 54, 55, 58, 76, 87, 90, 94, 123, 141, 144, 145, 152, 199, 228, 232, 235, 246, 322, 369, 376, 377, 380, 398, 521, 597, 608, 611, 615, 644, 843, 966, 984, 987, 988, 995, 1042, 1364

Offset

1,3

Links

R. J. Mathar, Table of n, a(n) for n = 1..171

Maple

isA050122 := proc(n)
    local i, j, f, l ;
    if n =0 then
        true;
    else
        for i from 1 do
            f := A000045(i) ;
            if f > n then
                return false;
            else
                for j from i do
                    l := A000032(j) ;
                    if f*l = n then
                        return true;
                    elif f*l > n and j> 2 then
                        break;
                    end if;
                end do:
            end if;
        end do:
    end if;
end proc:
A050122 := proc(n)
    option remember;
    local a;
    if n = 1 then
        0;
    else
        for a from procname(n-1)+1 do
            if isA050122(a) then
                return a;
            end if;
        end do:
    end if;
end proc:
seq(A050122(n), n=1..80) ; # R. J. Mathar, Jan 04 2017

Crossrefs

Cf. A000032, A000045.

Sequence in context: A133675 A332068 A173467 * A179016 A003657 A003644

Adjacent sequences: A050119 A050120 A050121 * A050123 A050124 A050125

Keyword

nonn

Author

Clark Kimberling

Status

approved