Search: id:A127965
Results 1-1 of 1 results found.

%I A127965
%S A127965 2,4,6,10,12,16,18,22,30,42,60,78,100,126,166,190,198,312,346,700,1708
%N A127965 Number of bits in A127962(n).
%C A127965 Equals A127964(n) + A127963(n).
%F A127965 a(n) = 1+floor[ log_2(A000979(n)) ] = 1+ floor[log_2(2^A000978(n)+1) 
               - A020857] = A000978(n)-1 . - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Feb 01 2008
%t A127965 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 (*Artur 
               Jasinski*)
%Y A127965 Cf. A127962, A127963, A127964, A127961, A000979, A000978, A124400, A126614, 
               A127955, A127956, A127957, A127958, A127936.
%Y A127965 Sequence in context: A075728 A146886 A006093 this_sequence A117891 A072752 
               A036634
%Y A127965 Adjacent sequences: A127962 A127963 A127964 this_sequence A127966 A127967 
               A127968
%K A127965 nonn
%O A127965 1,1
%A A127965 Artur Jasinski (grafix(AT)csl.pl), Feb 09 2007

Search completed in 0.001 seconds