%I A088346
%S A088346 5,9,13,17,22,27,31,36,41,46,52,57,62,68,73,79,85,90,96,102,108,114,120,
%T A088346 126,132,138,145,151,157,164,170,176,183,189,196,202,209,215,222,229,
%U A088346 235,242,249,255,262,269,276,283,289,296,303,310,317,324,331,338,345
%N A088346 A prime-like set of numbers.
%C A088346 This functions cancels out a different set of numbers from the factorial 
               than the primes using the asymptotic behavior of prime[n] and primePi[n].
%t A088346 (* asymptotic prime like product function*) p[n_]=n!/(2*Product[Floor[i*Log[i]], 
               {i, 2, Floor[n/Log[n]]}])
%t A088346 a0=Table[Floor[p[n]/p[n-1]], {n, 3, 500}];
%t A088346 (* composite like distribution*) Delete[Union[a0], 1];
%t A088346 (* pick of prime like numbers *) c=Table[If[a0[[n]]==1, n+2, 0], {n, 
               1, digits-3}];
%t A088346 d=Delete[Union[c], 1]
%Y A088346 Sequence in context: A145288 A057948 A004958 this_sequence A098109 A057653 
               A085759
%Y A088346 Adjacent sequences: A088343 A088344 A088345 this_sequence A088347 A088348 
               A088349
%K A088346 nonn,uned,new
%O A088346 3,1
%A A088346 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 07 2003
%E A088346 Partially edited Charles R Greathouse IV (charles.greathouse(AT)case.edu), 
               Nov 02 2009