id:A064122 - OEIS Search Results

Search: id:A064122

Displaying 1-1 of 1 results found.

page 1

Number of divisors of 3^n - 1 that are relatively prime to 3^m - 1 for all 0 < m < n.

+0
1

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

	OFFSET	`1,1`
	LINKS	`Sam Wagstaff, Cunningham Project, Factorizations of 3^n-1, n odd, n<540`
	MATHEMATICA	`a = {1}; Do[ d = Divisors[ 3^n - 1 ]; l = Length[ d ]; c = 0; k = 1; While[ k < l + 1, If[ Union[ GCD[ a, d[ [ k ] ] ] ] == {1}, c++ ]; k++ ]; Print[ c ]; a = Union[ Flatten[ Append[ a, Transpose[ FactorInteger[ 3^n - 1 ] ][ [ 1 ] ] ] ] ], {n, 1, 100} ]`
	CROSSREFS	`Cf. A063982.` `Sequence in context: A049874 A060501 A109129 this_sequence A057526 A033265 A096004` `Adjacent sequences: A064119 A064120 A064121 this_sequence A064123 A064124 A064125`
	KEYWORD	`nonn`
	AUTHOR	`Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 10 2001`

page 1

Search completed in 0.002 seconds

Last modified September 6 16:04 EDT 2008. Contains 143483 sequences.

AT&T Labs Research