OFFSET
1,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
EXAMPLE
The tribonacci numbers are 1,1,1,3,5,9,17,31,..., so that the sequence of all products of distinct members, in increasing order, is (3, 5, 9, 15, 17, 27, 31, 45,...).
MATHEMATICA
r[1] := 1; r[2] := 1; r[3] = 1; r[n_] := r[n] = r[n - 1] + r[n - 2] + r[n - 3];
s = {1}; z = 60; f = Map[r, Range[z]]; Take[f, 20]
Do[s = Union[s, Select[s*f[[i]], # <= f[[z]] &]], {i, z}];
Take[s, 2 z] (*A274432*)
infQ[n_] := MemberQ[f, n];
ans = Table[#[[Flatten[Position[Map[Apply[Times, #] &, #], s[[n]]]][[1]]]] &[
Rest[Subsets[Map[#[[1]] &, Select[Map[{#, infQ[#]} &, Divisors[s[[n]]]], #[[2]] && #[[1]] > 1 &]]]]], {n, 2, 300}];
Map[Apply[Times, #] &, Select[ans, Length[#] == 2 &]] (* A274433 *)
Map[Apply[Times, #] &, Select[ans, Length[#] == 3 &]] (* A274434 *)
(* Peter J. C. Moses, Jun 17 2016 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 22 2016
STATUS
approved