|
%I #9 Apr 18 2020 19:44:42
%S 0,1,1,0,1,0,1,-1,1,0,1,-1,1,0,0,-1,1,0,1,-1,1,0,1,-2,1,0,0,0,1,-1,1,
%T -2,2,-1,1,-1,1,0,0,-1,1,0,1,-1,0,1,1,-3,2,-1,0,0,1,-1,1,-1,1,0,1,-2,
%U 1,0,0,-2,2,0,1,-2,2,-1,1,-2,1,0,0,0,1,-1,1,-2,1,0,1,-1,0,1,0,-1,1,-1,1,0,0,1,-1,-2,1,1,0,-1,1,-1,1,-1,1
%N a(1) = 0, and then after the first differences of A064097.
%H Antti Karttunen, <a href="/A334090/b334090.txt">Table of n, a(n) for n = 1..65537</a>
%F a(1) = 0, and for n > 1, a(n) = A064097(n) - A064097(n-1).
%F a(n) = A334091(n) + A334195(n).
%o (PARI)
%o A064097(n) = if(1==n,0,1+A064097(n-(n/vecmin(factor(n)[,1]))));
%o A334090(n) = if(1==n,0,A064097(n)-A064097(n-1));
%Y Cf. A064097, A334091, A334195.
%Y Cf. A334197 (positions of records).
%Y Cf. also A332903.
%K sign
%O 1,24
%A _Antti Karttunen_, Apr 17 2020
|
