|
%I #13 Sep 29 2018 18:40:53
%S 1,2,1,2,1,1,1,0,1,1,1,1,1,1,1,-2,1,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,-10,
%T 1,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,-3,1,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,-18,
%U 1,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,-3,1,1,1,1,1,1,1,-1,1,1,1,1,1,1,1,-11,1,1,1
%N First differences of A178344.
%H Antti Karttunen, <a href="/A178562/b178562.txt">Table of n, a(n) for n = 0..65537</a>
%F a(n) = A178344(n+1) - A178344(n).
%o (PARI)
%o A178344(n) = if(!n,1,my(i=1, s=0); while(n, s+=prime(i)^(n%2); n >>= 1; i++); (s));
%o A178562(n) = (A178344(n+1)-A178344(n)); \\ _Antti Karttunen_, Sep 29 2018
%K sign,less
%O 0,2
%A _Juri-Stepan Gerasimov_, May 29 2010
%E Two terms corrected by _R. J. Mathar_, May 31 2010
|
