|
Search: id:A117751
|
|
|
| A117751 |
|
A triangular form based on partitions A000041 in a Ramanujan congruence form : improved odd number form. |
|
+0
1
|
|
| 5, 7, 42, 11, 15, 231, 22, 44583, 30, 1002, 147273, 7089500, 42, 451276, 30167357, 56, 118114304, 77, 44108109, 431149389, 101, 9289091, 1482074143
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
This version is an improved version that gets lower n and m.
|
|
REFERENCES
|
Robert Kanigel, The Man Who Knew Infinity, Washington Square Press, New York,1991, page 302
|
|
FORMULA
|
a(n) = If[Mod[PartitionsP[(2*n - 1)*m + n + 2], 2*n - 1] == 0, PartitionsP[(2*n - 1)*m + n + 2], {}]
|
|
EXAMPLE
|
5
7, 42
11
15, 231
22, 44583
30, 1002, 147273, 7089500
42, 451276, 30167357
56, 118114304
77, 44108109, 431149389
101, 9289091, 1482074143
|
|
MATHEMATICA
|
b = Table[Flatten[Table[If[Mod[PartitionsP[(2*n - 1)* m + n + 2], 2*n - 1] == 0, PartitionsP[(2*n - 1)*m + n + 2], {}], { n, 1, m}]], {m, 1, 10}] Flatten[b]
|
|
CROSSREFS
|
Cf. A000041.
Sequence in context: A167205 A123781 A120298 this_sequence A093526 A098512 A064082
Adjacent sequences: A117748 A117749 A117750 this_sequence A117752 A117753 A117754
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006
|
|
|
Search completed in 0.002 seconds
|
