|
| |
|
|
A298685
|
|
Numbers i such that Fibonacci(i) is divisible by i, i+1, i+2, and i+3.
|
|
7
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
A subsequence of A298684.
|
|
|
LINKS
|
Chai Wah Wu, Table of n, a(n) for n = 1..1000
|
|
|
MATHEMATICA
|
Select[Range[10^5], Function[{i, j}, AllTrue[i + Range[0, 3], Divisible[j, #] &]] @@ {#, Fibonacci@ #} &] (* Michael De Vlieger, Jan 28 2018 *)
|
|
|
PROG
|
(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
|
|
|
CROSSREFS
|
Cf. A000045, A023172, A217738, A221018, A225219, A298684.
Sequence in context: A261290 A253463 A255105 * A185463 A069474 A253824
Adjacent sequences: A298682 A298683 A298684 * A298686 A298687 A298688
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Alex Ratushnyak, Jan 24 2018
|
|
|
STATUS
|
approved
|
| |
|
|
