|
Search: id:A117750
|
|
|
| A117750 |
|
A triangular form based on partitions A000041 in a Ramanujan congruence form : odd number form with reversed n and m. |
|
+0
1
|
|
| 30, 135, 490, 2436, 1575, 10143, 4565, 37338, 1300156, 792, 12310, 124754, 1575, 31185, 386155, 26543660, 75175, 1121505, 4835271870, 5604, 173525, 3087735, 10143, 386155, 8118264, 1327710076, 4328363658647, 25025873760111
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
From a marginal notation several years old in the book: I had a form for odd numbers and one for primes noted.
|
|
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
|
30, 135
490, 2436
1575, 10143
4565, 37338, 1300156
792, 12310, 124754
1575, 31185, 386155, 26543660
75175, 1121505, 4835271870
5604, 173525, 3087735
10143, 386155, 8118264, 1327710076, 4328363658647, 25025873760111
|
|
MATHEMATICA
|
b = Table[Flatten[Table[If[Mod[a[[( 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: A044743 A100147 A079588 this_sequence A158462 A064495 A124958
Adjacent sequences: A117747 A117748 A117749 this_sequence A117751 A117752 A117753
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006
|
|
|
Search completed in 0.002 seconds
|
