2016年9月4日日曜日

160904(2)

Ruby


A276123 の一般化

m ≧ 6 のときはうまくいかないようだ。

def A(m, n)
  a = Array.new(m, 1)
  ary = [1]
  while ary.size < n + 1
    i = a[1..-1].inject(1){|s, i| s * (i + 1)}
    break if i % a[0] > 0
    a = *a[1..-1], i / a[0]
    ary << a[0]
  end
  ary
end

n = 18
(1..17).each{|i| p [i, A(i, n)]}

出力結果
[1, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]]
[2, [1, 1, 2, 3, 2, 1, 1, 2, 3, 2, 1, 1, 2, 3, 2, 1, 1, 2, 3]]
[3, [1, 1, 1, 4, 10, 55, 154, 868, 2449, 13825, 39025, 220324, 621946, 3511351, 9912106, 55961284, 157971745, 891869185, 2517635809]]
[4, [1, 1, 1, 1, 8, 36, 666, 222111, 685187756, 2819713283228248, 644335913093223286486628176, 5604757351123068775966272886689217889936356651, 14861563788248216173988661093334637018340529129342104300621091389266132702213641, 19033940748700075095139742840549610201939372859682653242963041791054289475934606662871084153376369462420916627104078373445720327061217941, 2460581192134651587756067412475357668253126081159713921725620409979439048150817623624831503181769998065631297487087195728430049110912893849387918348135642795967650846588294536864601785163769717782944361366497048669031151647913539889353, 124186420049040628853505757292121205769069533839325877016963114875096099963083842976205369826871166271767629589168858320975337885692588961377762680675626435153855794020553681493441077273301832601227449762842711386133535158859023606693798276686316989735863895906038157291088218223527575201383094006030471158042038880132815127604664772548372647553419176096537096649393876524614250068906593531373103790650056, 391359617594846908618957214312765316873383731761601038669734630670086686702532545819238728039569863757575055478036149837489679865221818257751919897273920466857736778463310825178649845627872241295250305392905363199223139886515193985736341552953970885685796791612110489453257162135093502724716657112887157926791349422486891031356674480270569737766097190914588440211171757718858195509226935463043995788024653460493920877274243154187743226833331172081211224747573123540659482270183680103887365671046496250118054380045943816442076254416056171800815795086263660135487866648873592651058782100903330635164896286191457498208117886160175389569648296868328701819933850608919266521093728507724335695893964636, 6282884930405575225029495974101387723317906361645833379779062912167663891342870129436272209617146245766175072646992770311039789036848648321884437370028272597052459866219114708138473429100978112897829960121546112389634438754974253353115366296415867970456746153055912566470139605090381175305724634617154716658954104212381856173956303021127290973436730840952562212580849926173091882574269519739314883566936806324171593467053685173077904164056266013606768213023571351870381150702200050001087171329355862088908856387920716349185571366151747586373140793052809068547351634947477862353920039090789987923829382696190983773125850604764235754335672735771048560319716436953950748199645051782581604929701107919053469647475822017189484471459540047179791626388954026981179972291358893574623908086527942132143098344534303407421726635654141052587967365734421990369121280570634427131035826312836122193252139258054035017340203329131245897585618973192658114744347857099075778778082046339942665631309695174644440190590114244986852635759843804815386411136620923967546355269488691546924285765319849221239696617343205123583347581506021738952234271548645089025156778277628180491416336622227960139818953186394963234130847146, 124099926550392496669962758936124926182825500616776938293264925678978666596004993308549227913716977044246283573892905240226459508777477058956312676229864025285645463025198649702634820498160891939173248050067289037079033899055176623086635690048485634670688061589589727663837620714563663360439886773563251936646686861454381563518415269593756971651170330969623892274607320336847233146491472131124500836245369827329998574360765761190001271787815952442428869194364314312140307485008501660334521863099540578372507851119889174400632409683489283106939479277566610381634718293216403120383675035930405274900156664285797429107022423048669776715104434363618826002112533673047649893468428340261176143076041817587096526422726769925844566200358304700127101851924266395479862274537357522260707949982010263741979894488856422708561989552205104067315455787036127449538658346276471588864914929904499473198444898937858440346657544674505046742298640697569461317684569323791793326081347530709031404263377727169100791093210132293188896614541572048355823520861656265959943668861323461196193876513879320352323438657149859753751333496258075373295235693338418807157965114348470780299053488873237568027069632743995335249473351529970215052790414552673692685653672898694244461301038701143153469602855564446801694180523756950056479839079556060318328168727599132892673351470607417622017440542592061254671892214997844564731914159263743299996751551271656137834547202816084592337462859196490539263407901669888408494832689013684320466536068654666448756310136491344581516928738644826451366176753657133203921199678463350755266896992399794215731028018650801191585807461019225991964362431301143399783250384830550945874782874692161893775388914577070330284974180605763699654393598025230182211799015627716956421156580227757897119452732127803900530263018236761447117684848357699958177022854009772520645188764909215969903107545082718165219603729554011390670351922936708910542066742643175562918343814344926440321466191489511929784792671760973859647862118450134680900792024363381138355368081444102780872070300191]]
[5, [1, 1, 1, 1, 1, 16, 136, 9316, 43398586, 941718655098991, 3260419210887695990745089401, 9128667609038682887521294605084509642216623603458676, 130571418098949527667701001911034307254031798383845757340189514208252911098355766299877310718094376, 84328534350602708894337659573119881832217264126095729892331201940528000547706833384042063747288964196431585099881272363930533221692235206131528298892918867367494839008972429054061798576, 348002478278709886416920436874022630004318491215316808288392367031301764281600346014585546658765372408610177131099240202718829088621684059438847679377602511778708544733573850360986496105230665009604640354269767651529672287465485556359653177653248700754527321375640444285845799107280397613272926906439761489017622716210558576628514480047939323927726, 10728498885725775693280651023434025772630798108286732738083385097036184803376843708861925605463151182885413082399744192260524526228118873169252772487445015529024129578950501101420207913633386727397413085851595000019609870542749721391661716907193218821252899938324212931133252700870216088018773451181622673268054341458041168396542727132728488873239645528790821957872372641013825040571780208459934696322121417818515197918565426337666967631946777907913694398789474103307134652582493824544410404663571501835756194079548480429703752334778864420147158746867337871921341111991554325051249379033995321767528146902887606067268412987789627597703439211198081719131291, 4503359071036351373606933221406223134536077425180614120484590828176301868520757709623718005302914702639144547684537567778012018011637416845437236001915284084405504247222414892197066110428575751431536008399682818045448668491986173578121961969019912847804185019302636996552430387467891476963905424127304707893063137923574953890530994840384325808746444674544089543484536037224659081154196999871073210517958282382738727974348345696467844754363733617053740826782961820824932379679777882642753035506897484475175724318873532248428782966391035848965582891361153072731122331602878028432780953863803205086879967681813022685125986266049796284360273689838166889259654027047692157770617423816894917663812899063975120418434312747528767562655050933835281131521850089636880741903676175291196788533462450777388973173780426145606007626057384415602065868685328934596757577234874214501902281377062302429505863666053137186120410414445439454575168058277444307293088175080772244925704382493129491402833479974925258877727072734376299706967276233568147688898169998566441974103909453253085441557022408444691302498789222818601798968430891420346185826880334748192671108170604935151666886339616106992812751500574168863313307487998003936433564799050377367728787061, 10858861775812676343398477222796159622254559304122665001018644442392240303321907844614989268463482191934025346517060598019925118491581219798340142704424823215290425525907252022596749754971801664886226813845205292351318250602001218564982610658332552172899182283090734711259627462397099214980932705093322699264016254401879723761131420974511137047264752806945372063459483342488812024982546460087115173953127291356192819603772317074709202730048867949794588277870730260538734067632889558243037173995133493925045956299005063282719519971896709087551166736668853957970483623118924245942588326426352459180809990570491564465948332676075402771852755692043650068261144867368025561467682691053048630066525386832558798930585738331669594174679087631667401082995647934023948397689915285738207436115627849479493693016190298625225675081176185562216022239279044728532363753358442249399914786140264475206168227457435086192681116603008157833776261841604558640934554630587027908364754424665557027776881998611231279755656251526919621410910996708790499556151766295988373503930521088323424960012889013097905654994785631373213435637356353049218158338008202789500812016233865412619577088035628729500126075136939045165136071355507462476329340071762178403150143618175815417432210319371174291886899482607686571389525820996746992593205269210655109107040177495173523528905631716327007714124230984950366728653983012121156064937212948571820979763774698318256414610883028424648383717567059318387081476331414512172502045424778705919688718629342944605872602838648112587153441037371316799069713325650510940345165548372294440593382679976009367045644424398899109503776062524159883328031777644634118138187855272913680057039416773549861246061453130296394379207702641651065994620860912188190536976479740297308915204720559521264091267636796565806428273627606127562344740840305956612081193574232221529787490836504928662712059094663962523623785651472509487371337983480945650479447330747913878340871190358044809390140913604349741622563915711770241144779236915365591605913210190119224625938101556890202680528826294661366610938596870993281050548110201684011549079668060197553539131058346165126614521656551940312213423174403431540541352879024142048985123479385120707424841348844150261778344180310128043529689419373292489328982364169843044719597016104209205464015529477001191, 2165048483634836976295968965773047647200423840592225782629946518928957385515490890344797458091768983660085084010859984556390948465079439748089206346283973422325839641019046453296791558085109055437822593079905083336929115531716787780508679377138831444951498792681658307457046735511849496573642963273540835344569159382528378032981323440230343334459125248756721225571895353592171191571929385728508599921337056272074805587679986726849870338290770612698127242727046897843847797890143664700886452464987078284605598830452045626710890770964621415262798092208865685828022350447462138441325767111612194424927174451437303931065095872845888440181464029583093650477245974548214722217697830900337645677725099006949384914676113291530104098438785304797353871134471011949526512904987737455822219803129611387222776357466763933292712700360180929917734850044654286245867338942715400816459774155097058929281892844658190597529995596075438257778745370156298187866452116755802615899042933195756636747385025752956592677162165850347070405886958771239847827853015770677780970291842636305733951357541969704107708379719109071604197508400534344612043958392667408869750924988940123338621568601353721336256680535241450849041410136790116286349892536333031067495239392529004840136031814707667448199397621038221277503298445021219230872496655837062433081733552200330890016511291673561111920930899739746370463638390599427763973593308996979872886264122796528717800500041555187018056179990983021829989791894270208219217913384816579144212897227734043816013248208381205017574522174858395042609837668840895823745649844286707512999424514937675146573144414360284303889667896204888230162483919785022640101594827725063417587709166284018317502424673975960263958649275345722096875288229197573409131956666078054819086006355278152694538770458867685264725552050567264806477767202064264891690860071112144207954035976440369688491763617287578056202261666884530498939420003530153796828891816957845325606142034028699690327213700063756321443864674943707710157892001223696462730105386177723030063267551225147785358281156824351258292757084960755544054462380182557328587003814242858209232590369771037975905693019613405913912885696219854665549257959007393009535401041865358147200518403479557796629558833935399608533600295548655120719057716083211797058572244781128495109977773093498916716635131821182789828327594313472070211609990108869656263785662407700205841629769653429383039396278861969842193788204058319064259975672098413256981878313546850808438649446277038571333160125802913153673033899182434570556261234013594443759286149018857482612746536720450728809466199931166127998645835280226927161958046819849445090279982657966392880568386861288644985663970155952479759388963694650250624074456593607591764119489361356903307256875929808731783158810427964193276660118593934677797213972354999338529404101578386729853349276146801874773805135897747619917139217260332245274679308333423862067088544687199775686485871364707538547547115428003072708224657160338978754667705396124667221107267861230601681997278090869123278230671314903440796736949333264616617029974563513178142220354958388215615591963552257349693065231234604800007544994032932418829190899503286142225303305365869954651460536327332855177547781683375485080798432292961248702789175618052086639773860289695037971326563029235106805000174732545454841848163148836329490167664804120864742820504921330823035369539919471095592728462391422460282442374402282673008285552519269927090513781458390064241631472649746496702699068767477540834167083163815818417804719492723851195278865351525931626967790051668142900318588849669289451592665090747066644171055609186983145229141773621833253271328680539745740300388509178219120610971136916213710965082176522984514742645267719446558517677791644105447384613377709940627122642826538049210690773030948237940471235837965861090728333352102798654662495234490345356017138598302925755493823417565277243626958523085635917509906309222397496835965300828769417139241088683914824680125550827279411239395282598450184626929388598004832486284600020868880132933698211444517702736551846360978479793972489465229502542507923061353721716504674223587277252110358155194002009216353719774990500924887133020905602317723261593662484457811055587132398968162587044321067004225778744499857270530720905367841730586324855978528790152516697898131367064172627225130035671885887227500332158036]]
[6, [1, 1, 1, 1, 1, 1, 32]]
[7, [1, 1, 1, 1, 1, 1, 1, 64]]
[8, [1, 1, 1, 1, 1, 1, 1, 1, 128]]
[9, [1, 1, 1, 1, 1, 1, 1, 1, 1, 256]]
[10, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 512]]
[11, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1024]]
[12, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2048]]
[13, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4096]]
[14, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8192]]
[15, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 16384]]
[16, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 32768]]
[17, [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 65536]]

0 件のコメント:

コメントを投稿