A334090 - OEIS

%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