|
%I #5 Jan 28 2014 14:39:05
%S 12,11,4,3,3,3,4,10,9,0,0,5,4,7,11,10,8,0,0,4,0,0,6,9,12,7,0,4,3,3,3,
%T 3,3,3,3,3,11,0,0,4,5,8,6,0,11,10,0,6,0,0,4,0,5,13,0,0,0,0,11,7,0,8,4,
%U 0,0,5,4,12,5,0,8,9,0,6,0,4,11,0,0,0,4,7,0
%N Triangle read by antidiagonals of the conjectured least index k > 2 of Fibonacci-like sequence f(i+2) = f(i+1) + f(i), with f(1)=m and f(2)=n, such that f(k) is a square, or k=0 if squares do not exist in the corresponding sequence.
%C Does this sequence have a maximum value? In row 340, the maximum value is 46.
%D J. H. E. Cohn, On square Fibonacci numbers, J. London Math. Soc. 39 (1964), 537-540.
%H T. D. Noe, <a href="/A233513/b233513.txt">Rows n = 1..100 of triangle, flattened</a>
%e The rectangular array begins
%e 12, 11, 3, 4, 0, 10, 0, 3, 11, 10,… (A236506)
%e 4, 3, 10, 5, 8, 6, 3, 0, 0, 0,...
%e 3, 9, 4, 0, 9, 3, 0, 6, 0, 5,...
%e 0, 7, 0, 12, 3, 4, 0, 11, 0, 7,...
%e 11, 4, 7, 3, 5, 0, 7, 8, 0, 4,...
%e 0, 0, 3, 8, 4, 0, 9, 5, 0, 3,...
%e 4, 3, 6, 0, 8, 0, 0, 0, 3, 0,...
%e 3, 0, 5, 4, 6, 0, 0, 3, 14, 0,...
%e 11, 13, 0, 0, 13, 5, 3, 4, 12, 10,...
%e 0, 0, 4, 0, 0, 3, 0, 0, 0, 0,...
%t squareQ[n_] := IntegerQ[Sqrt[n]]; nn = 100; t2 = Table[f = {m, n - m + 1}; Do[AppendTo[f, f[[-1]] + f[[-2]]], {i, 3, nn}]; k = 2; While[k++; k <= nn && ! squareQ[f[[k]]]]; If[k > nn, k = 0]; k, {n, 15}, {m, n}]
%Y Cf. A236506 (m=1).
%K nonn,tabl
%O 1,1
%A _T. D. Noe_, Jan 28 2014
|
