|
%I #53 Jan 14 2024 02:33:11
%S 1,0,1,1,2,3,4,4,5,6,7,8,9,10,11,11,12,13,14,15,16,17,18,19,20,21,22,
%T 23,24,25,26,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,
%U 45,46,47,48,49,50,51,52,53,54,55,56,57,57,58,59,60,61,62,63,64,65,66
%N Number of eigenvalues equal to 1 of n X n matrix A(i,j)=1 if j=1 or i divides j.
%C All numbers occur at least once, but terms > 1 of A000295 appear twice. - _Robert G. Wilson v_, Apr 19 2006
%C It appears that a(n) = Sum_{k=0..n-1} (1 + (-1)^A000108(k))/2 (n > 1). - _Paul Barry_, Mar 31 2008
%C Barry's observation above is true because A000108 obtains odd values only at points (2^j)-1 (A000225) and here the repeated values (A000295) occur precisely at positions given by A000225 and A000079. - _Antti Karttunen_, Aug 17 2013
%C a(n)+1 gives a lower bound for nonzero terms of A228086 and A228087. - _Antti Karttunen_, Aug 17 2013
%H Antti Karttunen, <a href="/A083058/b083058.txt">Table of n, a(n) for n = 1..8192</a>
%H J. B. Conrey, <a href="http://www.ams.org/notices/200303/fea-conrey-web.pdf">The Riemann Hypothesis</a>, Notices Amer. Math. Soc., 50 (No. 3, March 2003), 341-353. See p. 347.
%H Will Dana, <a href="https://sites.math.washington.edu/~morrow/336_15/papers/will.pdf">Eigenvalues of the Redheffer Matrix and their relation to the Mertens function</a> (2015), Theorem 5.
%H Ralf Stephan, <a href="/somedcgf.html">Some divide-and-conquer sequences with (relatively) simple ordinary generating functions</a>.
%H Ralf Stephan, <a href="/A079944/a079944.ps">Table of generating functions</a>.
%F a(n) = n - A070939(n), n > 1.
%F a(1)=1, else a(n)=b(n) with b(0)=0, b(2n)=b(n)+n-1, b(2n+1)=b(n)+n. - _Ralf Stephan_, Oct 11 2003
%F Except for a(1), a(n) = n - 1 - floor(log(2,n)). - _Robert G. Wilson v_, Apr 19 2006
%F It seems that a(n) = A182220(n+1)-1 for all n > 1. - _Antti Karttunen_, Aug 17 2013
%p A083058 := proc(n)
%p if n = 1 then
%p 1;
%p else
%p n-floor(log[2](n))-1 ;
%p end if;
%p end proc:
%p seq(A083058(n),n=1..40) ; # _R. J. Mathar_, Jul 23 2017
%t a[1] = 1; a[n_] := n - Floor[Log[2, n]] - 1;
%t Array[a, 100] (* _Jean-François Alcover_, Feb 27 2019 *)
%o (PARI) a(n)=if(n<2,n>0,n-floor(log(n)/log(2))-1)
%o (PARI) a(n)= if(n<1, 0, valuation( subst( charpoly( matrix(n, n, i, j, (j==1) || (0==j%i))), x, x+1), x))
%o (Scheme) (define (A083058 n) (if (< n 2) n (- n (A070939 n)))) ;; _Antti Karttunen_, Aug 17 2013
%o (Python) def a(n): return n - n.bit_length() + (n == 1) # _Matthew Andres Moreno_, Jan 04 2024
%Y Cf. A002321, A070939, A143104.
%K nonn
%O 1,5
%A _Michael Somos_, Apr 18 2003
|
