%I #16 Aug 28 2019 04:10:29
%S 0,0,2,2,5,5,6,3,1,7,15,15,9,1,2,14,20,20,21,1,1,13,35,5,5,3,3,27,41,
%T 41,30,2,1,1,6,54,21,1,1,49,53,53,39,1,1,25,75,1,7,2,5,45,65,1,1,1,1,
%U 31,107,107,33,1,2,2,1,77,57,1,1,73,122,122,39,3,3,9,1,89,105,3,1,43
%N GCD of consecutive values of Chowla's function.
%H Amiram Eldar, <a href="/A069896/b069896.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = gcd(sigma(n+1)-(n+1)-1, sigma(n)-n-1), for n > 1.
%e Chowla's function values from 92 to 96 are 75,34,49,24,155: successive values are relatively primes.
%t m = 100; s = Array[If[# == 1, 0, DivisorSigma[1, #] - # - 1] &, {m}]; GCD[s[[1 ;; m - 1]], s[[2 ;; m]]] (* _Amiram Eldar_, Aug 28 2019 *)
%Y Cf. A048050, A000203, A001650.
%K easy,nonn
%O 1,3
%A _Labos Elemer_, Apr 10 2002
%E a(1) corrected by _Amiram Eldar_, Aug 28 2019