login
A099847
Bisection of A000961.
1
2, 4, 7, 9, 13, 17, 23, 27, 31, 37, 43, 49, 59, 64, 71, 79, 83, 97, 103, 109, 121, 127, 131, 139, 151, 163, 169, 179, 191, 197, 211, 227, 233, 241, 251, 257, 269, 277, 283, 293, 311, 317, 337, 347, 353, 361, 373, 383, 397, 409, 421, 433, 443, 457, 463, 479, 491
OFFSET
1,1
MAPLE
a:=proc(n) if nops(ifactors(n)[2])=1 then n else fi end: A:=[seq(a(n), n=1..580)]: seq(A[2*k-1], k=1..nops(A)/2); # Emeric Deutsch, Dec 18 2004
CROSSREFS
Sequence in context: A183873 A036386 A280417 * A014817 A326502 A090893
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 19 2004
EXTENSIONS
More terms from Emeric Deutsch, Dec 18 2004
STATUS
approved