OFFSET
1,2
COMMENTS
Does k exist for all n? This sequence is inspired by A130693, which lists all known powers of 2 whose digits are all powers of 2 (that is, 1, 2, 4, or 8).
EXAMPLE
2^19=524288 is the least power of 2 ending with 5 digits that are powers of 2.
MATHEMATICA
k=1; Join[{0}, Table[k--; pwr=PowerMod[2, k, 10^n]; While[k++; pwr=Mod[2*pwr, 10^n]; d=Union[IntegerDigits[pwr, 10, n]]; Intersection[d, {3, 5, 6, 7, 9, 0}]!={}]; k, {n, 2, 10}]]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
T. D. Noe, Apr 08 2008
STATUS
approved