1,2

Numbers n such that n divides the sum of the first n Fibonacci numbers are listed in A111035(n) = {1, 2, 24, 48, 72, 77, 96, 120, 144, 192, 216, 240, 288, 319, 323, 336, 360, ...}. Most terms in A111035(n) are the multiples of 24. Numbers n such that 24n divides the sum of the first 24n Fibonacci numbers are listed in A124455(n) = {1,2,3,4,5,6,8,9,10,12,14,15,16,18,20,24,25,27,28,30,32,36,40,42,45,46,48,50, 51,54,55,56,57,60,64,70,72,75,80,81,84,86,90,92,96,98,100,...}.

Select[Range[20000], !IntegerQ[ #/24]&&Mod[Fibonacci[ #+2]-1, # ]==0&]

Cf. A111035, A124455.

Sequence in context: A087287 A041721 A048358 this_sequence A157062 A008273 A166052

Adjacent sequences: A124453 A124454 A124455 this_sequence A124457 A124458 A124459

nonn

Alexander Adamchuk (alex(AT)kolmogorov.com), Nov 02 2006, Nov 03 2006