1,3

All numbers in A046967(n) are the form 2^k

a = {}; c = 2; Do[d = Length[IntegerDigits[c, 10]]; c = c^Prime[n]; AppendTo[a, d], {n, 2, 9}]; a

Cf. A046967, A135249.

Sequence in context: A109780 A093448 A094653 this_sequence A006926 A014374 A125709

Adjacent sequences: A135247 A135248 A135249 this_sequence A135251 A135252 A135253

base,nonn

Artur Jasinski (grafix(AT)csl.pl), Nov 24 2007