|
Search: id:A088492
|
|
|
| A088492 |
|
A factorial subtraction set based on Hofstadter's A005185. |
|
+0
1
|
|
| 2, 3, 4, 5, 3, 7, 2, 9, 3, 11, 3, 13, 2, 15, 3, 17, 3, 19, 3, 21, 3, 23, 3, 25, 3, 27, 3, 29, 3, 31, 3, 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, 3, 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
|
|
|
FORMULA
|
Hofstadter[n] =Hofstadter[n - Hofstadter[n-1]] + Hofstadter[n - Hofstadter[n-2]] p[n_]=n!/Product[Hofstadter[i], {i, 1, Floor[n/2]}] a(n) = Floor[p[n]/p[n-1]]
|
|
MATHEMATICA
|
Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[n - Hofstadter[n-1]] + Hofstadter[n - Hofstadter[n-2]] Hofstadter[1] = Hofstadter[2] = 1 p[n_]=n!/Product[Hofstadter[i], {i, 1, Floor[n/2]}] digits=200 a0=Table[Floor[p[n]/p[n-1]], {n, 2, digits}]
|
|
CROSSREFS
|
Cf. A005185.
Sequence in context: A104413 A127064 A117607 this_sequence A025492 A077004 A064760
Adjacent sequences: A088489 A088490 A088491 this_sequence A088493 A088494 A088495
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 10 2003
|
|
|
Search completed in 0.002 seconds
|
