

A114814


Indices of Fibonacci numbers with 5 prime factors when counted with multiplicity.


2



18, 44, 45, 57, 63, 68, 69, 76, 91, 98, 111, 118, 124, 125, 134, 141, 169, 172, 183, 185, 201, 202, 203, 213, 218, 229, 247, 253, 267, 302, 303, 329, 335, 347, 363, 371, 373, 377, 381, 382, 386, 395, 398, 413, 415, 439, 443, 461, 497, 501, 529, 547, 563, 579
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



EXAMPLE

a(1)=18 because 18th Fibonacci number (i.e., 2584) consists of 5 prime factors (i.e., 2*2*2*17*19).


MATHEMATICA

t = {}; Do[f = FactorInteger[Fibonacci[n]]; If[Total[Transpose[f][[2]]] == 5, AppendTo[t, n]], {n, 2, 100}]; t (* T. D. Noe, Mar 14 2014 *)


PROG

(PARI) n=1; while(n<385, if(bigomega(fibonacci(n))==5, print1(n, ", ")); n++)


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



