A298685 Numbers i such that Fibonacci(i) is divisible by i, i+1, i+2, and i+3.

540, 1200, 1620, 3060, 5580, 9180, 9900, 12600, 13440, 13680, 18300, 19440, 19800, 21000, 24480, 36900, 43200, 49680, 50220, 54120, 57240, 61560, 65880, 81180, 83700, 103680, 104160, 154080, 155520, 156060, 156240, 202440, 229320, 252000, 279000, 298200, 302940

Offset: 1

Author

Alex Ratushnyak, Jan 24 2018

Keywords

• nonn

Comments

A subsequence of A298684.

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000045, A023172, A217738, A221018, A225219, A298684.

Programs

Mathematica

Select[Range[10^5], Function[{i, j}, AllTrue[i + Range[0, 3], Divisible[j, #] &]] @@ {#, Fibonacci@ #} &] (* Michael De Vlieger, Jan 28 2018 *)

PARI

isone(n, k) = !(fibonacci(n) % (n+k));
isok(n) = isone(n,0) && isone(n,1) && isone(n,2) && isone(n,3); \\ Michel Marcus, Jan 29 2018