%I #9 Jan 20 2023 17:21:26

%S 1,4,9,16,24,25,30,40,42,49,54,56,66,70,78,81,88,102,104,105,110,114,

%T 121,128,130,135,136,138,152,154,165,169,170,174,182,184,186,189,190,

%U 195,222,230,231,232,238,246,248,250,255,258,266,273,282,285,286,289

%N Nonprime numbers with Fibonacci number of divisors.

%C A000005(a(n)) is a Fibonacci number.

%C The union of {1}, A001248, A030514, A030626, A030631, A137484, etc. [From _R. J. Mathar_, Oct 26 2009]

%H Harvey P. Dale, <a href="/A139588/b139588.txt">Table of n, a(n) for n = 1..1000</a>

%F A123193 \ A000040. [From _R. J. Mathar_, Oct 23 2009]

%t Module[{fibs=Fibonacci[Range[20]]},Select[Range[300],!PrimeQ[#]&&MemberQ[ fibs,DivisorSigma[0,#]]&]] (* _Harvey P. Dale_, Jan 20 2023 *)

%Y Cf. A000005, A000045, A018252, A123193, A139589, A139590.

%K easy,nonn

%O 1,2

%A _Omar E. Pol_, May 09 2008

%E More terms from _R. J. Mathar_, Oct 23 2009