|
| |
|
|
A007916
|
|
Not a perfect power.
|
|
16
| |
|
|
2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 82, 83
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| These can be computed with a modified Sieve of Eratosthenes: (1) start at n=2 (2) if n is not crossed out, then append n to the sequence and cross out all powers of n (3) set n = n+1 and go to step 2 - Sam Alexander (amnalexander(AT)yahoo.com), Dec 15 2003
A075802(a(n)) = 0. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Mar 19 2009]
|
|
|
REFERENCES
| F. Smarandache, "Only Problems, not Solutions!", Xiquan Publ., Phoenix-Chicago, 1993
|
|
|
LINKS
| N. J. A. Sloane, Table of n, a(n) for n = 1..9875
F. Smarandache, Only Problems, Not Solutions!.
Index entries for sequences generated by sieves [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Feb 10 2010]
|
|
|
MATHEMATICA
| a = {}; Do[If[Apply[GCD, Transpose[FactorInteger[n]][[2]]] == 1, a = Append[a, n]], {n, 2, 200}]; a
|
|
|
PROG
| (MAGMA) [n : n in [2..1000] | not IsPower(n) ];
|
|
|
CROSSREFS
| Complement of A001597. Union of A052485 and A052486.
Cf. A144338. [From Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Mar 19 2009]
Sequence in context: A094784 A085971 A175082 * A052485 A109421 A179983
Adjacent sequences: A007913 A007914 A007915 * A007917 A007918 A007919
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| R. Muller
|
|
|
EXTENSIONS
| More terms from Henry Bottomley (se16(AT)btinternet.com), Sep 12 2000
Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Mar 18 2010
|
| |
|
|
