OFFSET
1,8
MATHEMATICA
Table[Length[Intersection[IntegerDigits[2^n], InterDigits[2^(n+1)]]], {n, 1, 100}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Oct 21 2002
STATUS
approved