OFFSET
1,1
COMMENTS
All the terms in A046967 are of the form 2^k.
FORMULA
From Amiram Eldar, Oct 13 2024: (Start)
MATHEMATICA
a = {}; c = 2; Do[d = Length[IntegerDigits[c, 2]]; c = c^Prime[n]; AppendTo[a, d], {n, 2, 9}]; a
1 + FoldList[Times, 1, Prime[Range[2, 20]]] (* Amiram Eldar, Oct 12 2024 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Artur Jasinski, Nov 24 2007
EXTENSIONS
More terms from Amiram Eldar, Oct 12 2024
STATUS
approved