|
|
A114815
|
|
Indices of Fibonacci numbers with 6 prime factors when counted with multiplicity.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|