cp's OEIS Frontend

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.

A276811 a(n) = sigma(Fibonacci(k))/Fibonacci(n) where k is the least number such that Fibonacci(n) divides sigma(Fibonacci(k)), or -1 if no such k exists.

This page as a plain text file.
%I A276811 #36 Nov 30 2016 06:12:05
%S A276811 1,1,2,1,3,4,31,20,47,5832,322,84,4576568315415066934826490,324,843,
%T A276811 480,3769607182320,2209,
%U A276811 707932145558030519866865515025923563263974776037874477588352,69670959389872974262939756520,39603
%N A276811 a(n) = sigma(Fibonacci(k))/Fibonacci(n) where k is the least number such that Fibonacci(n) divides sigma(Fibonacci(k)), or -1 if no such k exists.
%C A276811 Least k such that Fibonacci(n) divides sigma(Fibonacci(k)) are 1, 1, 4, 3, 6, 8, 12, 14, 17, 27, 23, 20, 131, 26, 29, 28, 77, 34, 305, 158, 43, ...
%e A276811 a(7) = 31 because least k such that Fibonacci(7) divides sigma(Fibonacci(k)) is 12 and sigma(Fibonacci(12))/Fibonacci(7) = 31.
%t A276811 f[n_] := Block[{k = 1, fn = Fibonacci@ n}, While[ds = DivisorSigma[1, Fibonacci[k]]; Mod[ds, fn] > 0, k++]; ds/fn]; Array[f, 21] (* _Robert G. Wilson v_, Nov 06 2016 *)
%Y A276811 Cf. A000045, A063477, A277261.
%K A276811 nonn
%O A276811 1,3
%A A276811 _Altug Alkan_, Nov 05 2016