login
A099836
Bisection of A000961.
1
1, 3, 5, 8, 11, 16, 19, 25, 29, 32, 41, 47, 53, 61, 67, 73, 81, 89, 101, 107, 113, 125, 128, 137, 149, 157, 167, 173, 181, 193, 199, 223, 229, 239, 243, 256, 263, 271, 281, 289, 307, 313, 331, 343, 349, 359, 367, 379, 389, 401, 419, 431, 439, 449, 461, 467, 487
OFFSET
0,2
MAPLE
a:=proc(n) if nops(ifactors(n)[2])=1 then n else fi end: A:=[seq(a(n), n=1..570)]: 1, seq(A[2*k], k=1..nops(A)/2); # Emeric Deutsch, Dec 18 2004
CROSSREFS
Sequence in context: A248879 A014688 A167136 * A344010 A281333 A371154
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 19 2004
EXTENSIONS
More terms from Emeric Deutsch, Dec 18 2004
STATUS
approved