|
Search: id:A088346
|
|
|
| A088346 |
|
A prime-like set of numbers. |
|
+0
1
|
|
| 5, 9, 13, 17, 22, 27, 31, 36, 41, 46, 52, 57, 62, 68, 73, 79, 85, 90, 96, 102, 108, 114, 120, 126, 132, 138, 145, 151, 157, 164, 170, 176, 183, 189, 196, 202, 209, 215, 222, 229, 235, 242, 249, 255, 262, 269, 276, 283, 289, 296, 303, 310, 317, 324, 331, 338, 345
(list; graph; listen)
|
|
|
OFFSET
|
3,1
|
|
|
COMMENT
|
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].
|
|
MATHEMATICA
|
(* asymptotic prime like product function*) p[n_]=n!/(2*Product[Floor[i*Log[i]], {i, 2, Floor[n/Log[n]]}])
a0=Table[Floor[p[n]/p[n-1]], {n, 3, 500}];
(* composite like distribution*) Delete[Union[a0], 1];
(* pick of prime like numbers *) c=Table[If[a0[[n]]==1, n+2, 0], {n, 1, digits-3}];
d=Delete[Union[c], 1]
|
|
CROSSREFS
|
Sequence in context: A145288 A057948 A004958 this_sequence A098109 A057653 A085759
Adjacent sequences: A088343 A088344 A088345 this_sequence A088347 A088348 A088349
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 07 2003
|
|
EXTENSIONS
|
Partially edited Charles R Greathouse IV (charles.greathouse(AT)case.edu), Nov 02 2009
|
|
|
Search completed in 0.002 seconds
|
