|
|
A114817
|
|
Indices of Fibonacci numbers with 8 prime factors when counted with multiplicity.
|
|
2
|
|
|
54, 78, 102, 128, 130, 135, 147, 154, 170, 171, 182, 217, 231, 236, 238, 279, 290, 309, 316, 338, 355, 374, 436, 442, 452, 471, 481, 524, 538, 548, 553, 649, 694, 725, 796, 801, 818, 833, 838, 847, 849, 851, 886, 889, 922, 923, 926, 939, 949, 958, 963, 965
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(1)=54 because 54th Fibonacci number (i.e., 86267571272) consists of 8 prime factors (i.e., 2*2*2*17*19*53*109*5779).
|
|
MATHEMATICA
|
t = {}; Do[f = FactorInteger[Fibonacci[n]]; If[Total[Transpose[f][[2]]] == 8, AppendTo[t, n]], {n, 2, 200}]; t (* T. D. Noe, Mar 14 2014 *)
|
|
PROG
|
(PARI) n=1; while(n<320, if(bigomega(fibonacci(n))==8, print1(n, ", ")); n++)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|