|
|
A073958
|
|
Fibonacci numbers for which the number of prime factors (with multiplicity) is a Fibonacci number.
|
|
1
|
|
|
1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 233, 377, 610, 987, 1597, 2584, 4181, 10946, 17711, 28657, 75025, 121393, 514229, 1346269, 3524578, 5702887, 9227465, 24157817, 39088169, 63245986, 165580141, 433494437
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The prime Fibonacci numbers, A005478, are a subsequence.
|
|
LINKS
|
|
|
EXAMPLE
|
Example: 8=2*2*2, the number of prime factors is equal to 3, a Fibonacci number.
|
|
MATHEMATICA
|
With[{fibs=Fibonacci[Range[0, 50]]}, Rest[Select[fibs, MemberQ[fibs, PrimeOmega[#]]&]]] (* Harvey P. Dale, Oct 27 2011 *)
|
|
PROG
|
(PARI) isFibonacci(n)=my(k=n^2); k+=((k + 1) << 2); issquare(k) || (n > 0 && issquare(k-8))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nice,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|