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
IntegerLength/@RecurrenceTable[{a[1]==2, a[n]==a[n-1]^Prime[n]}, a[n], {n, 9}] (* From Harvey P. Dale, Jul 18 2011 *)
Cf. A046967, A135249.
Sequence in context: A109780 A093448 A094653 * A006926 A014374 A185336
Adjacent sequences: A135247 A135248 A135249 * A135251 A135252 A135253
base,nonn
Artur Jasinski (grafix(AT)csl.pl), Nov 24 2007
a(9) from Harvey P. Dale, Jul 18 2011
