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

Author

Altug Alkan, Mar 22 2016

Keywords

• nonn

Examples

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

Links

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

Crossrefs

Complement of A270653.

Cf. A000057, A003266.

Programs

Mathematica

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

PARI

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