OFFSET
1,3
EXAMPLE
774202 = 10111101000000111010 (base 2)
774202 = ...1110100000011.... (base 3)
1604056 = 110000111100111011000 (base 2)
1604056 = .10000111100111...... (base 3)
MATHEMATICA
Do[i3=IntegerString[n, 2]; l3=StringLength[i3]; i=FromDigits[i3, 3]; i2=IntegerString[i, 2]; If[StringPosition[i2, i3]!={}, Print[i]]; , {n, 0, 10^7}]; (* Ray Chandler*)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov and Ray Chandler, Jun 03 2010
STATUS
approved