|
Search: id:A117749
|
|
|
| A117749 |
|
A triangular form based on partitions A000041 in a Ramanujan congruence form : reversing order on n and m. |
|
+0
1
|
|
| 30, 22, 490, 42, 1575, 10143, 4565, 37338, 1121505, 792, 12310, 124754, 5392783, 1575, 31185, 386155, 23338469, 75175, 1121505, 92669720, 5604, 173525, 3087735, 342325709, 1002, 10143, 386155, 8118264, 1188908248, 571701605655
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
From a marginal notation several years old in the book.
|
|
REFERENCES
|
Robert Kanigel, The Man Who Knew Infinity, Washington Square Press, New York,1991, page 302
|
|
FORMULA
|
a(n) = If[Mod[PartitionsP[Prime[n]*m + n + 1], Prime[n]] == 0, PartitionsP[Prime[n]* m + n + 1], {}]
|
|
EXAMPLE
|
30
22, 490
42, 1575, 10143
4565, 37338, 1121505
792, 12310, 124754, 5392783
1575, 31185, 386155, 23338469
75175, 1121505, 92669720
5604, 173525, 3087735, 342325709
1002, 10143, 386155, 8118264, 1188908248, 571701605655
|
|
MATHEMATICA
|
b = Table[Flatten[Table[If[Mod[PartitionsP[Prime[n]*m + n + 1], Prime[n]] == \ 0, PartitionsP[Prime[n]*m + n + 1], {}], {n, 1, m}]], {m, 1, 10}] Flatten[b]
|
|
CROSSREFS
|
Cf. A000041.
Sequence in context: A070891 A033971 A040872 this_sequence A100935 A112026 A022986
Adjacent sequences: A117746 A117747 A117748 this_sequence A117750 A117751 A117752
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006
|
|
|
Search completed in 0.002 seconds
|
