|
%I #11 Feb 07 2018 12:14:13
%S 540,1200,1620,3060,5580,9180,9900,12600,13440,13680,18300,19440,
%T 19800,21000,24480,36900,43200,49680,50220,54120,57240,61560,65880,
%U 81180,83700,103680,104160,154080,155520,156060,156240,202440,229320,252000,279000,298200,302940
%N Numbers i such that Fibonacci(i) is divisible by i, i+1, i+2, and i+3.
%C A subsequence of A298684.
%H Chai Wah Wu, <a href="/A298685/b298685.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[10^5], Function[{i, j}, AllTrue[i + Range[0, 3], Divisible[j, #] &]] @@ {#, Fibonacci@ #} &] (* _Michael De Vlieger_, Jan 28 2018 *)
%o (PARI) isone(n, k) = !(fibonacci(n) % (n+k));
%o isok(n) = isone(n,0) && isone(n,1) && isone(n,2) && isone(n,3); \\ _Michel Marcus_, Jan 29 2018
%Y Cf. A000045, A023172, A217738, A221018, A225219, A298684.
%K nonn
%O 1,1
%A _Alex Ratushnyak_, Jan 24 2018
|
