Search: id:A117750
Results 1-1 of 1 results found.

%I A117750
%S A117750 30,135,490,2436,1575,10143,4565,37338,1300156,792,12310,124754,1575,
%T A117750 31185,386155,26543660,75175,1121505,4835271870,5604,173525,3087735,
%U A117750 10143,386155,8118264,1327710076,4328363658647,25025873760111
%N A117750 A triangular form based on partitions A000041 in a Ramanujan congruence 
               form : odd number form with reversed n and m.
%C A117750 From a marginal notation several years old in the book: I had a form 
               for odd numbers and one for primes noted.
%D A117750 Robert Kanigel, The Man Who Knew Infinity, Washington Square Press, New 
               York,1991, page 302
%F A117750 a(n) = If[Mod[PartitionsP[(2*n + 1)*m + n + 2], 2*n + 1] == 0, PartitionsP[(2*n 
               + 1)*m + n + 2], {}]
%e A117750 30, 135
%e A117750 490, 2436
%e A117750 1575, 10143
%e A117750 4565, 37338, 1300156
%e A117750 792, 12310, 124754
%e A117750 1575, 31185, 386155, 26543660
%e A117750 75175, 1121505, 4835271870
%e A117750 5604, 173525, 3087735
%e A117750 10143, 386155, 8118264, 1327710076, 4328363658647, 25025873760111
%t A117750 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]
%Y A117750 Cf. A000041.
%Y A117750 Sequence in context: A044743 A100147 A079588 this_sequence A158462 A064495 
               A124958
%Y A117750 Adjacent sequences: A117747 A117748 A117749 this_sequence A117751 A117752 
               A117753
%K A117750 nonn,uned,probation
%O A117750 0,1
%A A117750 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006

Search completed in 0.001 seconds