A114819 Indices of Fibonacci numbers with 10 prime factors when counted with multiplicity.

36, 100, 114, 165, 174, 256, 266, 273, 282, 296, 304, 322, 325, 366, 369, 376, 406, 424, 428, 429, 484, 494, 506, 574, 578, 589, 633, 637, 642, 646, 652, 658, 663, 664, 668, 669, 670, 687, 705, 716, 724, 742, 754, 779, 782, 807, 845, 892, 909, 921, 946, 956

Offset

1,1

Links

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

Blair Kelly, Fibonacci and Lucas Factorizations.

Example

a(1)=36 because the 36th Fibonacci number (i.e., 14930352) consists of 10 prime factors (i.e., 2*2*2*2*3*3*3*17*19*107).

Mathematica

t = {}; Do[f = FactorInteger[Fibonacci[n]]; If[Total[Transpose[f][[2]]] == 10, AppendTo[t, n]], {n, 2, 200}]; t (* T. D. Noe, Mar 14 2014 *)
Select[Range[1000], PrimeOmega[Fibonacci[#]]==10&] (* Harvey P. Dale, Jul 24 2021 *)

Prog

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

Crossrefs

Column k=10 of A303215.

Sequence in context: A118632 A260007 A306213 * A137945 A250812 A072413

Adjacent sequences: A114816 A114817 A114818 * A114820 A114821 A114822

Keyword

nonn

Author

Shyam Sunder Gupta, Feb 19 2006

Extensions

More terms from Ryan Propper, May 24 2006

Status

approved