id:A072032 - OEIS Search Results

Search: id:A072032

Displaying 1-1 of 1 results found.

page 1

A072032

GCD[2^n,Rev[2^n]] = GCD[2^n, A004086(2^n)] = A055483[2^n].

+0
2

2, 4, 8, 1, 1, 2, 1, 4, 1, 1, 2, 8, 2, 1, 1, 4, 1, 2, 1, 1, 2, 2, 2, 1, 1, 16, 1, 2, 1, 1, 4, 4, 2, 1, 1, 2, 1, 8, 1, 1, 8, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 8, 4, 1, 1, 1, 1, 1, 8, 1, 1, 16, 2, 1, 1, 1, 1, 1, 1, 2, 1, 2, 8, 1, 1, 1, 1, 1, 1, 8, 1, 2, 2, 1, 1, 1, 1, 1, 1, 16, 1, 8, 1, 1 (list; graph; listen)

	OFFSET	`1,1`
	EXAMPLE	`n=12: a(12)=GCD[4096,6904]=8`
	MATHEMATICA	`nd[x_, y_] := 10*x+y tn[x_] := Fold[nd, 0, x] red[x_] := Reverse[IntegerDigits[x]] Table[GCD[2^w, tn[red[2^w]]], {w, 1, 128}]`
	CROSSREFS	`Cf. A055483, A004086, A071686.` `Sequence in context: A124221 A097625 A010743 this_sequence A023104 A133145 A008952` `Adjacent sequences: A072029 A072030 A072031 this_sequence A072033 A072034 A072035`
	KEYWORD	`nonn`
	AUTHOR	`Labos E. (labos(AT)ana.sote.hu), Jun 07 2002`

page 1

Search completed in 0.002 seconds

Last modified August 19 23:53 EDT 2008. Contains 142930 sequences.

AT&T Labs Research