login
Bisection of A000961.
1

%I #7 Aug 19 2019 03:52:38

%S 1,3,5,8,11,16,19,25,29,32,41,47,53,61,67,73,81,89,101,107,113,125,

%T 128,137,149,157,167,173,181,193,199,223,229,239,243,256,263,271,281,

%U 289,307,313,331,343,349,359,367,379,389,401,419,431,439,449,461,467,487

%N Bisection of A000961.

%p 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

%Y Cf. A000961, A099847.

%K nonn,easy

%O 0,2

%A _N. J. A. Sloane_, Nov 19 2004

%E More terms from _Emeric Deutsch_, Dec 18 2004