A114815 Indices of Fibonacci numbers with 6 prime factors when counted with multiplicity.

12, 40, 50, 64, 75, 92, 95, 99, 116, 117, 129, 133, 153, 155, 159, 177, 188, 194, 205, 206, 219, 237, 245, 265, 278, 314, 323, 327, 339, 341, 343, 346, 356, 358, 361, 362, 394, 407, 411, 417, 422, 427, 437, 446, 454, 466, 482, 502, 503, 505, 514, 515, 527

Offset

1,1

Links

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

Blair Kelly, Fibonacci and Lucas Factorizations.

Example

a(1)=12 because 12th fibonacci number(i.e. 144) consists of 6 prime factors (i.e. 2*2*2*2*3*3)

Mathematica

t = {}; Do[f = FactorInteger[Fibonacci[n]]; If[Total[Transpose[f][[2]]] == 6, AppendTo[t, n]], {n, 2, 100}]; t (* T. D. Noe, Mar 14 2014 *)
Position[Fibonacci[Range[550]], _?(PrimeOmega[#]==6&)]//Flatten (* Harvey P. Dale, Jun 12 2017 *)

Prog

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

Crossrefs

Column k=6 of A303215.

Sequence in context: A139691 A292544 A345924 * A363121 A353839 A175583

Adjacent sequences: A114812 A114813 A114814 * A114816 A114817 A114818

Keyword

nonn

Author

Shyam Sunder Gupta, Feb 19 2006

Extensions

More terms from Ryan Propper, May 22 2006

Status

approved