%I A117749
%S A117749 30,22,490,42,1575,10143,4565,37338,1121505,792,12310,124754,5392783,
%T A117749 1575,31185,386155,23338469,75175,1121505,92669720,5604,173525,3087735,
%U A117749 342325709,1002,10143,386155,8118264,1188908248,571701605655
%N A117749 A triangular form based on partitions A000041 in a Ramanujan congruence 
               form : reversing order on n and m.
%C A117749 From a marginal notation several years old in the book.
%D A117749 Robert Kanigel, The Man Who Knew Infinity, Washington Square Press, New 
               York,1991, page 302
%F A117749 a(n) = If[Mod[PartitionsP[Prime[n]*m + n + 1], Prime[n]] == 0, PartitionsP[Prime[n]* 
               m + n + 1], {}]
%e A117749 30
%e A117749 22, 490
%e A117749 42, 1575, 10143
%e A117749 4565, 37338, 1121505
%e A117749 792, 12310, 124754, 5392783
%e A117749 1575, 31185, 386155, 23338469
%e A117749 75175, 1121505, 92669720
%e A117749 5604, 173525, 3087735, 342325709
%e A117749 1002, 10143, 386155, 8118264, 1188908248, 571701605655
%t A117749 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]
%Y A117749 Cf. A000041.
%Y A117749 Sequence in context: A070891 A033971 A040872 this_sequence A100935 A112026 
               A022986
%Y A117749 Adjacent sequences: A117746 A117747 A117748 this_sequence A117750 A117751 
               A117752
%K A117749 nonn,uned,probation
%O A117749 0,1
%A A117749 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006