A270653 Integers k such that A003266(k) is divisible by k.

1, 5, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80

Offset

1,2

Comments

Note that this sequence is not the complement of A000057.

See A230359 for the prime terms of this sequence.

Links

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

Example

11 is a term because 1*1*2*3*5*8*13*21*34*55*89 is divisible by 11.

Mathematica

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

Prog

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

Crossrefs

Complement of A270777.

Cf. A000057, A003266, A230359.

Sequence in context: A180443 A205705 A343616 * A299538 A201512 A242290

Adjacent sequences: A270650 A270651 A270652 * A270654 A270655 A270656

Keyword

nonn

Author

Altug Alkan, Mar 20 2016

Status

approved