|
|
A076212
|
|
Numbers n such that n and Fibonacci(n) have the same number of prime factors.
|
|
0
|
|
|
1, 3, 5, 7, 9, 10, 11, 13, 14, 17, 22, 23, 26, 29, 34, 43, 47, 64, 83, 94, 121, 131, 137, 359, 431, 433, 449, 509, 569, 571
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
More precisely, numbers n such that Omega(n) = Omega(Fibonacci(n)), where Omega(n) (A001222) denotes the number of prime factors of n, counting multiplicity.
|
|
LINKS
|
|
|
EXAMPLE
|
a(6)=9 because 9 and 9th Fibonacci number (i.e. 34) have the same number of prime factors i.e. 2
|
|
MAPLE
|
with(numtheory): with(combinat): a:=proc(n) if bigomega(n)=bigomega(fibonacci(n)) then n else fi end: seq(a(n), n=1..150); # Emeric Deutsch, Feb 15 2006
|
|
MATHEMATICA
|
Omega[n_] := Apply[Plus, Transpose[FactorInteger[n]][[2]]]; Flatten[Append[{1}, Select[Range[3, 150], Omega[ # ] == Omega[Fibonacci[ # ]] &]]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|