OFFSET
1,2
COMMENTS
LINKS
T. Khovanova, Turning Numbers Inside Out [From Tanya Khovanova, Jul 07 2009]
EXAMPLE
95 is in this sequence because 95 = 5*19. Prime factors in binary are: 101 and 10011.
Reversing them we get 101 and 11001. The product of the last two numbers is 1111101, which is
the reverse of the binary representation of 95 (1011111).
MATHEMATICA
reverseBinPower[{n_, k_}] := FromDigits[Reverse[IntegerDigits[n, 2]], 2]^k fBin[n_] := FromDigits[ Reverse[IntegerDigits[ Times @@ Map[reverseBinPower, FactorInteger[n]], 2]], 2] Select[Range[300], fBin[ # ] == # &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Jun 22 2009
EXTENSIONS
Comments condensed by R. J. Mathar, Aug 14 2009
STATUS
approved