id:A058653 - OEIS Search Results

Search: id:A058653

Displaying 1-1 of 1 results found.

page 1

Numbers n such that Sigma(Phi(n)) = Phi(Sigma(n)-n).

+0
1

2, 18, 50, 1250, 1980, 6900, 61080 (list; graph; listen)

	OFFSET	`1,1`
	MATHEMATICA	`Select[ Range[ 10^6 ], DivisorSigma[ 1, EulerPhi[ # ] ] == EulerPhi[ DivisorSigma[ 1, # ] - # ] & ]`
	CROSSREFS	`Sequence in context: A048910 A077591 A050808 this_sequence A058794 A121670 A114109` `Adjacent sequences: A058650 A058651 A058652 this_sequence A058654 A058655 A058656`
	KEYWORD	`nonn`
	AUTHOR	`Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 26 2000`

page 1

Search completed in 0.002 seconds

Last modified November 24 23:16 EST 2009. Contains 167481 sequences.