login
First differences of the list A292794 of numbers not congruent to F(k) modulo F(k+1) for any k > 1, where F are the Fibonacci numbers A000045.
3

%I #12 Mar 19 2018 22:30:03

%S 4,2,4,2,4,6,2,6,6,4,2,4,6,2,10,2,4,2,10,2,6,4,2,4,2,4,8,6,4,2,4,2,4,

%T 6,8,4,2,6,4,6,2,6,4,2,6,4,8,6,4,6,2,4,6,2,6,6,4,2,4,6,2,6,4,2,4,2,10,

%U 8,4,2,4,2,4,8,6,4,2,4,2,10,2,6,6,10,6,2,6,4,2,4,2,4,8,6,6,4,2,4,6,2,12,4,2,4

%N First differences of the list A292794 of numbers not congruent to F(k) modulo F(k+1) for any k > 1, where F are the Fibonacci numbers A000045.

%C The sequence has been chosen 0-indexed, as for A292794.

%C It has been conjectured that every even number occurs in this sequence.

%C It would be interesting to know whether there are patterns or formulae for the indices at which the respective even numbers occur.

%C The index of the first occurrence of 2n in this sequence is listed in A300004 = (1, 0, 5, 26, 14, ...): a(1), a(0), a(5), a(26), a(14), ... is the first occurrence of 2, 4, 6, 8, 10, ... in this sequence.

%F a(n) = A292794(n+1) - A292794(n).

%t Differences@ Join[{0}, Select[Range[3, 500], Function[n, NoneTrue[Block[{k = {1, 1}}, While[Last@k <= n, AppendTo[k, Total@ Take[k, -2]]]; Partition[Most@ k, 2, 1]], Mod[n, #2] == #1 & @@ # &]]]] (* _Michael De Vlieger_, Mar 19 2018 *)

%o (PARI) (D(v)=v[^1]-v[^-1])(A292794=select(is_A292794,[0..500]))

%o (PARI) print1(L=0); for(n=1,oo, is_A292794(n)&&print1(",",-L+L=n))

%Y Cf. A292794, A000045.

%K nonn

%O 0,1

%A _M. F. Hasler_, Feb 25 2018

%E Edited by _M. F. Hasler_, Mar 05 2018