OFFSET
1,1
COMMENTS
By definition, each term is in A001690. - R. J. Mathar, Jan 15 2008
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
seq[max_] := Module[{d = DivisorSigma[0, Range[max]], dmax, k = 2}, dmax = Max[d]; While[Fibonacci[k] < dmax, k++]; Select[d, !MemberQ[Fibonacci[Range[2, k]], #] &]]; seq[300] (* Amiram Eldar, Apr 08 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Aug 07 2007
EXTENSIONS
More terms from R. J. Mathar, Jan 15 2008
STATUS
approved