id:A064452 - OEIS Search Results

Search: id:A064452

Displaying 1-1 of 1 results found.

page 1

Integers which are not primes or powers of primes such that for all j>i Phi(j)/j > Phi(i)/i.

+0
1

6, 10, 14, 15, 21, 33, 35, 55, 65, 77, 91, 119, 133, 143, 187, 209, 221, 247, 299, 323, 391, 437, 493, 527, 551, 589, 667, 713, 851, 899, 1073, 1147, 1189, 1247, 1271, 1333, 1457, 1517, 1591, 1739, 1763, 1927, 2021, 2173, 2279, 2419, 2491, 2623, 2747, 2773 (list; graph; listen)

	OFFSET	`1,1`
	MATHEMATICA	`a = 0; Do[ If[ Length[ FactorInteger[n]] > 1 && EulerPhi[n]/n > a, a = EulerPhi[n]/n; Print[n]], {n, 1, 5000} ]`
	CROSSREFS	`Sequence in context: A100660 A088709 A063078 this_sequence A085647 A072901 A075777` `Adjacent sequences: A064449 A064450 A064451 this_sequence A064453 A064454 A064455`
	KEYWORD	`easy,nonn`
	AUTHOR	`Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 02 2001`

page 1

Search completed in 0.002 seconds

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

AT&T Labs Research