%I #15 Nov 25 2015 02:30:52
%S 1,3,18,24,42,48,72,96,120,138,144,192,216,240,258,264,282,288,336,
%T 360,384,402,432,480,498,576,600,618,642,648,672,714,720,744,762,768,
%U 864,912,960,978,1002,1008,1080,1104,1152,1200,1224,1296,1320,1338,1344,1362
%N Positive values of k such that A014286(k) is divisible by k.
%C Sequence is interesting because of the values of a(n) - a(n-1). For a(n) < 10000, the most common repeated values of a(n) - a(n-1) are 24 and 6. Will this situation continue?
%e a(2) = 3 because Fibonacci(1) + 2 * Fibonacci(2) + 3 * Fibonacci(3) = 9, which is divisible by 3.
%t Select[Range@ 1584, Divisible[Sum[i Fibonacci@ i, {i, 0, #}], #] &] (* _Michael De Vlieger_, Oct 22 2015 *)
%o (PARI) for(n=1, 2000, if(sum(k=1, n, k*fibonacci(k)) % n == 0, print1(n, ", ")))
%Y Cf. A000045, A014286.
%K nonn,easy
%O 1,2
%A _Altug Alkan_, Oct 22 2015