|
Search: id:A088491
|
|
|
| A088491 |
|
A factorial subtraction sequence based on Conway's A004001. |
|
+0
1
|
|
| 2, 3, 4, 5, 3, 7, 4, 9, 3, 11, 3, 13, 3, 15, 4, 17, 3, 19, 3, 21, 3, 23, 3, 25, 3, 27, 3, 29, 3, 31, 4, 33, 3, 35, 3, 37, 3, 39, 3, 41, 3, 43, 3, 45, 3, 47, 3, 49, 3, 51, 3, 53, 3, 55, 3, 57, 3, 59, 3, 61, 3, 63, 4, 65, 3, 67, 3, 69, 3, 71, 3, 73, 3, 75, 3, 77, 3, 79, 3, 81, 3, 83, 3, 85, 3, 87
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
Instead of ones the Comway gives 3's and 4's as the bifurcation set.
|
|
FORMULA
|
Conway[n] =Conway[Conway[n-1]] + Conway[n - Conway[n-1]] p[n_]=n!/Product[Conway[i], {i, 1, Floor[n/2]}] a(n) = Floor[p[n]p[n-1]
|
|
MATHEMATICA
|
Conway[n_Integer?Positive] := Conway[n] =Conway[Conway[n-1]] + Conway[n - Conway[n-1]] Conway[1] = Conway[2] = 1 p[n_]=n!/Product[Conway[i], {i, 1, Floor[n/2]}] digits=200 a0=Table[Floor[p[n]/p[n-1]], {n, 2, digits}]
|
|
CROSSREFS
|
Cf. A004001.
Sequence in context: A077004 A064760 A002034 this_sequence A140271 A141295 A134198
Adjacent sequences: A088488 A088489 A088490 this_sequence A088492 A088493 A088494
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 10 2003
|
|
|
Search completed in 0.002 seconds
|
