|
%I #9 Aug 17 2017 02:56:19
%S 1,7,19,39,63,91,133,181,223,289,349,399,481,567,649,763,843,949,1093,
%T 1189,1321,1471,1579,1719,1899,2023,2187,2367,2533,2739,2967,3147,
%U 3327,3529,3807,3913,4203,4407,4623,4891,5163,5401,5667,5971,6159,6559,6799
%N A bisection of A000960.
%p S[1]:={seq(i,i=1..10000)}: for n from 2 to 10000 do S[n]:=S[n-1] minus {seq(S[n-1][n*i],i=1..nops(S[n-1])/n)} od: A:=convert(S[10000],list): seq(A[2*i-1], i=1..56); # _Emeric Deutsch_, Mar 01 2005
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Nov 15 2004
%E More terms from _Emeric Deutsch_, Mar 01 2005
|
