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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A272949 Products of three distinct Fibonacci numbers > 1. 7
 30, 48, 78, 80, 120, 126, 130, 195, 204, 208, 210, 312, 315, 330, 336, 340, 504, 510, 520, 534, 544, 546, 550, 816, 819, 825, 840, 864, 880, 884, 890, 1320, 1326, 1335, 1360, 1365, 1398, 1424, 1428, 1430, 1440, 2136, 2142, 2145, 2160, 2184, 2200, 2210, 2262 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Giovanni Resta, Table of n, a(n) for n = 1..10000 EXAMPLE a(1) = 30 = 2*3*5. MATHEMATICA s = {1}; nn = 60; f = Fibonacci[2 + Range[nn]]; Do[s = Union[s, Select[s*f[[i]], # <= f[[nn]] &]], {i, nn}]; s = Prepend[s, 0]; Take[s, 100] (* A160009 *) isFibonacciQ[n_] := Apply[Or, Map[IntegerQ, Sqrt[{# + 4, # - 4} &[5 n^2]]]]; ans = Join[{{0}}, {{1}}, Table[#[[Flatten[Position[Map[Apply[Times, #] &, #], s[[n]]]][[1]]]] &[Rest[Subsets[Rest[Map[#[[1]] &, Select[Map[{#, isFibonacciQ[#]} &, Divisors[s[[n]]]], #[[2]] &]]]]]], {n, 3, 500}]] Map[Length, ans] (* A272947 *) Flatten[Position[Map[Length, ans], 1]] (* A272948 *) Map[Apply[Times, #] &, Select[ans, Length[#] == 1 &]] (* A000045 *) Map[Apply[Times, #] &, Select[ans, Length[#] == 2 &]] (* A271354 *) Map[Apply[Times, #] &, Select[ans, Length[#] == 3 &]] (* A272949 *) Map[Apply[Times, #] &, Select[ans, Length[#] == 4 &]] (* A272950 *) (* Peter J. C. Moses, May 11 2016 *) up=10^9; F=Fibonacci; i=3; Union[ Reap[ While[(a = F[i++]) < up, j=i; While[ (b = F[j++]*a) < up, h=j; While[ (c = F[h++]*b) < up, Sow@c ]]]][[2, 1]]] (* Giovanni Resta, May 14 2016 *) CROSSREFS Cf. A000045, A160009, A272947, A271354, A273950. Sequence in context: A207143 A004223 A230558 * A271998 A365965 A307130 Adjacent sequences: A272946 A272947 A272948 * A272950 A272951 A272952 KEYWORD nonn,easy AUTHOR Clark Kimberling, May 13 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 22 18:23 EDT 2024. Contains 374540 sequences. (Running on oeis4.)