This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A130331 #10 Apr 08 2024 05:05:40 %S A130331 4,4,4,6,4,4,6,6,4,4,4,4,6,6,4,4,4,9,4,4,6,6,4,10,6,4,6,4,4,4,12,4,6, %T A130331 7,4,6,4,12,4,6,6,4,10,4,12,4,4,4,12,4,6,4,4,4,12,6,6,9,4,12,4,10,4,6, %U A130331 6,4,4,16,4,4,6,4,12,4,12,4,4,12,4,4,4,15,4,4,6,6,12,6,4,12,4,4,12,4,10,6,4 %N A130331 Number of divisors of A123240(n). %C A130331 By definition, each term is in A001690. - _R. J. Mathar_, Jan 15 2008 %H A130331 Amiram Eldar, <a href="/A130331/b130331.txt">Table of n, a(n) for n = 1..10000</a> %F A130331 a(n) = A000005(A123240(n)). - _R. J. Mathar_, Jan 15 2008 %t A130331 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 *) %Y A130331 Cf. A000005, A000379, A123240. %K A130331 easy,nonn %O A130331 1,1 %A A130331 _Giovanni Teofilatto_, Aug 07 2007 %E A130331 More terms from _R. J. Mathar_, Jan 15 2008