|
%I #13 Nov 06 2017 11:41:54
%S 3,19,3,19,3,19,3,3,16,3,3,16,3,3,16,3,3,16,3,3,19,3,19,3,19,3,19,3,
%T 19,3,19,3,19,3,19,3,19,3,19,3,19,3,19,3,3,16,3,3,16,3,3,16,3,3,16,3,
%U 3,19,3,19,3,19,3,19,3,19,3,19,3,19,3,19,3,19,3,19,3,19,3
%N First differences of A293751.
%C Sequence seems to be composed of three different integers 3, 16 and 19. Further comments in A293700.
%t rootsn = Flatten[Position[Table[Floor[Tan[-n]], {n, 1, 10^6}], 1]];
%t difn = Differences[rootsn];
%Y Cf. A293751, A293698, A293700, A293702, A293705, A293701, A293704.
%K nonn
%O 1,1
%A _V.J. Pohjola_, Oct 16 2017
|
