|
Search: id:A088347
|
|
|
| A088347 |
|
A product cancellation type function that is what I call a wild wierd sequence. |
|
+0
1
|
|
| 2, 1, 1, 5, 1, 1, 1, 9, 1, 1, 12, 1, 1, 15, 1, 1, 1, 19, 1, 1, 22, 1, 1, 1, 26, 1, 1, 29, 1, 1, 32, 1, 1, 1, 36, 1, 1, 39, 1, 1, 1, 43, 1, 1, 46, 1, 1, 1, 50, 1, 1, 53, 1, 1, 56, 1, 1, 1, 60, 1, 1, 63, 1, 1, 1, 67, 1, 1, 70, 1, 1, 73, 1, 1, 1, 77, 1, 1, 80, 1, 1, 1, 84, 1, 1, 87, 1, 1, 90, 1, 1, 1, 94, 1
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
This sequence started out as an effort to cancel out the two prime semiprimes in a factorial type function. I do not understand how the experimental result works. It skips two and threes in a 2,3,2,2,3 type sequence of ones.
|
|
FORMULA
|
a(n) = WildWierd[n]
|
|
MATHEMATICA
|
(* generated the semiprimes*) digits=20 a=Flatten[Table[Prime[i]*Prime[j], {i, 1, digits}, {j, 1, digits}]]; b=Union[a] f[n_]=b[[n]] (* factorial cancellation function*) p[n_]=n!/Product[f[i], {i, 1, Floor[Sqrt[n^2/2+n/2]]}] (* pick out the numbers*) a1=Table[If[Floor[p[n+1]/p[n]]<n, 1, Floor[p[n+1]/p[n]]], {n, 1, 209}]
|
|
CROSSREFS
|
Sequence in context: A075803 A127966 A110243 this_sequence A069568 A136789 A022661
Adjacent sequences: A088344 A088345 A088346 this_sequence A088348 A088349 A088350
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L Bagula (rlbagulatftn(AT)yahoo.com), Nov 07 2003
|
|
|
Search completed in 0.002 seconds
|
