OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
6 = 2*3, 44 = 4*11.
MAPLE
N:= 10000: # for terms <= N
L:= gfun:-rectoproc({f(n)=f(n-1)+f(n-2), f(0)=2, f(1)=1}, f(n), remember):
S:= {}:
for i from 2 do
u:= L(i);
if u > N then break fi;
for j from 0 to i-1 do
if j = 1 then next fi;
v:= u*L(j);
if v > N then break fi;
S:= S union {v};
od od:
sort(convert(S, list)); # Robert Israel, Jan 01 2021
MATHEMATICA
z = 100; f[n_] := LucasL[n]; f[1] = 2 ;
Take[Sort[Flatten[Table[f[u] f[v], {u, 1, z}, {v, 1, u - 1}]]], z]
Take[Times@@@Subsets[Join[{2}, LucasL[Range[2, 20]]], {2}]//Union, 60] (* Harvey P. Dale, Aug 13 2019 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 18 2016
STATUS
approved