|
%I #43 Apr 01 2017 20:21:35
%S 0,1,2,1,4,2,1,4,4,2,1,4,4,4,2,1,4,4,4,4,2,1,4,4,4,4,4,2,1,4,4,4,4,4,
%T 4,2,1,4,4,4,4,4,4,4,2,1,4,4,4,4,4,4,4,4,2,1,4,4,4,4,4,4,4,4,4,2,1,4,
%U 4,4,4,4,4,4,4,4,4,2,1,4,4,4,4,4,4,4,4,4,4,4,2,1,4,4,4,4,4,4,4,4,4,4,4,4,2,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2
%N Number of neighbors of each new term in a square array read by antidiagonals.
%C Here the "neighbors" of T(n,k) are defined to be the adjacent elements to T(n,k), in the same row, column or diagonals, that are present in the square array when T(n,k) is the new element of the sequence in progress.
%C Apart from row 1 and column 1 the rest of the elements are 4's.
%C If every "4" is replaced with a "3" we have the sequence A275015.
%C For the same idea but for a right triangle see A278317; for an isosceles triangle see A275015; for a square spiral see A278354; and for a hexagonal spiral see A047931.
%e The corner of the square array read by antidiagonals upwards begins:
%e 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,...
%e 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,...
%e 1, 4, 4, 4, 4, 4, 4, 4, 4, 4,...
%e 1, 4, 4, 4, 4, 4, 4, 4, 4,...
%e 1, 4, 4, 4, 4, 4, 4, 4,...
%e 1, 4, 4, 4, 4, 4, 4,...
%e 1, 4, 4, 4, 4, 4,...
%e 1, 4, 4, 4, 4,...
%e 1, 4, 4, 4,...
%e 1, 4, 4,...
%e 1, 4,...
%e 1,...
%e ..
%t Table[Boole[# > 1] + 2 Boole[k > 1] + Boole[And[# > 1, k > 1]] &[n - k + 1], {n, 14}, {k, n}] // Flatten (* or *)
%t Table[Boole[n > 1] (Map[Mod[#, n] &, Range@ n] /. {k_ /; k > 1 -> 4, 0 -> 2}), {n, 14}] // Flatten (* _Michael De Vlieger_, Nov 23 2016 *)
%Y Antidiagonal sums give 0 together with A004767.
%Y Row 1 gives 0 together with A007395, also twice A057427.
%Y Column 1 gives A057427.
%Y Cf. A047931, A274912, A274913, A275015, A278317, A278354.
%K nonn,tabl
%O 1,3
%A _Omar E. Pol_, Nov 16 2016
|
