|
%I #3 Mar 31 2012 10:22:05
%S 2,4,16,106,1156,15016,255256,4849846
%N a(n) = number of bits in binary expansion of A046967(n).
%C All numbers in A046967(n) are the form 2^k
%t a = {}; c = 2; Do[d = Length[IntegerDigits[c, 2]]; c = c^Prime[n]; AppendTo[a, d], {n, 2, 9}]; a
%Y Cf. A046967, A135250.
%K nonn,base
%O 1,1
%A _Artur Jasinski_, Nov 24 2007
|
