login
Lower indices of duplicate terms in A125204, i.e., k such that A125204(k) = A125204(k + 1).
0

%I #4 Jul 21 2017 15:59:32

%S 3,18,35,37,148,741,752,6814,13976,150095,517213,11874105

%N Lower indices of duplicate terms in A125204, i.e., k such that A125204(k) = A125204(k + 1).

%e 18 is in the sequence because A125204(18) = A125204(19) = 266.

%t l = {0, 1}; Do[x = l[[n]] + l[[Mod[l[[n]], n] + 1]]; If[x == l[[n]], Print[n - 1]]; AppendTo[l, x], {n, 2, 10^9}]

%Y Cf. A125204.

%K hard,more,nonn

%O 1,1

%A _Ryan Propper_, Jan 25 2007