|
%I #5 Jun 19 2016 03:40:55
%S 84,132,216,231,308,348,378,504,564,594,609,792,812,912,957,987,1276,
%T 1316,1386,1476,1551,1566,1596,2068,2088,2128,2233,2388,2508,2538,
%U 2583,3344,3384,3444,3619,3654,3864,4059,4089,4104,4179,5412,5452,5472,5572,5742
%N Products of three distinct Lucas numbers (3,4,7,11,18,...)
%e 84 = 3*4*7, 132 = 3*4*11.
%t z = 100; f[n_] := LucasL[n];
%t Take[Sort[Flatten[Table[f[u] f[v] f[w], {u, 2, z}, {v, 2, u - 1}, {w, 2, v - 1}]]], z]
%Y Cf. A000032, A274349, A274348, A271354, A272949.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jun 18 2016
|
