OFFSET
1,1
COMMENTS
All numbers in A046967(n) are the form 2^k
MATHEMATICA
a = {}; c = 2; Do[d = Length[IntegerDigits[c, 2]]; c = c^Prime[n]; AppendTo[a, d], {n, 2, 9}]; a
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Artur Jasinski, Nov 24 2007
STATUS
approved