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

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

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..112

Blair Kelly, Fibonacci and Lucas Factorizations.

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

Column k=5 of A303215.

Sequence in context: A045264 A297428 A049067 * A299383 A177724 A095739

Adjacent sequences: A114811 A114812 A114813 * A114815 A114816 A114817

Keyword

nonn

Author

Shyam Sunder Gupta, Feb 19 2006

Extensions

More terms from Ryan Propper, May 22 2006

Status

approved