%I A072556
%S A072556 1,3,4,5,7,10,11,12,13,14,17,22,23,26,29,34,43,47,83,94,131,137,359,431,
%T A072556 433,449,509,569,571
%N A072556 Numbers n such that n and the n-th Fibonacci number have the same number 
               of distinct prime factors.
%e A072556 a(7)=10 because 10 and 10th Fibonacci number(i.e. 55) have the same number 
               of prime factors i.e. 2 - Shyam Sunder Gupta (guptass(AT)rediffmail.com), 
               Feb 05 2006
%p A072556 with(combinat): with(numtheory): a:=proc(n) if nops(factorset(fibonacci(n)))=nops(factorset(n)) 
               then n else fi end: seq(a(n),n=1..150); - Emeric Deutsch (deutsch(AT)duke.poly.edu), 
               Apr 02 2006
%t A072556 Insert[Select[Range[1, 50], Length[FactorInteger[ # ]] ==Length[FactorInteger[Fibonacci[ 
               # ]]] &], 2, 2] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Mar 20 2006
%Y A072556 Cf. A001221, A022307.
%Y A072556 Sequence in context: A101760 A165713 A105148 this_sequence A047365 A048342 
               A030502
%Y A072556 Adjacent sequences: A072553 A072554 A072555 this_sequence A072557 A072558 
               A072559
%K A072556 more,nonn
%O A072556 1,2
%A A072556 Benoit Cloitre (benoit7848c(AT)orange.fr), Aug 06 2002
%E A072556 More terms from Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Jan 25 
               2003
%E A072556 Edited by R. J. Mathar, Aug 11 2008