%I #16 Oct 19 2024 08:35:02
%S 2,4,6,10,12,16,18,22,30,42,60,78,100,126,166,190,198,312,346,700,
%T 1708,2616,3538,5806,10500,10690,11278,12390,14478,42736,83338,95368,
%U 117238,127030,138936,141078,267016,269986,374320,986190,4031398
%N Number of bits in A127962(n).
%F a(n) = A127964(n) + A127963(n).
%F a(n) = 1 + floor(log_2(A000979(n))) = 1 + floor(log_2(2^A000978(n)+1) - A020857) = A000978(n) - 1. - _R. J. Mathar_, Feb 01 2008
%t b = {}; Do[c = 1 + Sum[2^(2n - 1), {n, 1, x}]; If[PrimeQ[c], AppendTo[b, c]], {x, 0, 1000}]; a = {}; Do[AppendTo[a, FromDigits[IntegerDigits[b[[x]], 2]]], {x, 1, Length[b]}]; d = {}; Do[AppendTo[d, DigitCount[a[[x]], 10, 0]+DigitCount[a[[x]], 10, 1]], {x, 1, Length[a]}]; d
%Y Cf. A127962, A127963, A127964, A127961, A000979, A000978, A124400, A126614, A127955, A127956, A127957, A127958, A127936.
%K nonn,base,more,changed
%O 1,1
%A _Artur Jasinski_, Feb 09 2007
%E a(22)-a(29) from _Vincenzo Librandi_, Mar 30 2012
%E a(30)-a(41) from _Amiram Eldar_, Oct 19 2024