A270777 Integers k such that A003266(k) is not divisible by k.

2, 3, 4, 7, 23, 43, 67, 83, 103, 127, 163, 167, 223, 227, 283, 367, 383, 443, 463, 467, 487, 503, 523, 547, 587, 607, 643, 647, 683, 727, 787, 823, 827, 863, 883, 887, 907, 947, 983, 1063, 1123, 1163, 1187, 1283, 1303, 1327, 1367, 1423, 1447, 1487, 1543, 1567, 1583, 1607, 1627, 1663, 1667

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..1000

Example

4 is a term because 1*1*2*3 = 6 is not divisible by 4.

Mathematica

Select[Range@ 1680, ! Divisible[Fibonorial@ #, #] &] (* Version 10, or *)
Select[Range@ 1680, ! Divisible[Product[Fibonacci@ k, {k, #}], #] &] (* Michael De Vlieger, Mar 27 2016 *)

Prog

(PARI) t(n) = prod(k=1, n, Mod(fibonacci(k), n));
for(n=1, 2000, if(lift(t(n)) != 0, print1(n, ", ")));

Crossrefs

Complement of A270653.

Cf. A000057, A003266.

Sequence in context: A373392 A084644 A208729 * A100686 A052340 A370407

Adjacent sequences: A270774 A270775 A270776 * A270778 A270779 A270780

Keyword

nonn

Author

Altug Alkan, Mar 22 2016

Status

approved