Thread: Multiply Pandigital 2 View Single Post
 2013-01-07, 07:23 #2 LaurV Romulan Interpreter     Jun 2011 Thailand 24EC16 Posts You imagine people have nothing to do and waste their time with trifles? Code: (14:08:12) gp > pandig(n)=v=[0,0,0,0,0,0,0,0,0,0];while(n>0,v[n%10+1]++;n\=10);return(vecsort(v)[1]) %4 = (n)->v=[0,0,0,0,0,0,0,0,0,0];while(n>0,v[n%10+1]++;n\=10);return(vecsort(v)[1]) (14:09:32) gp > n=15; until(b>0&&d>0,print(n++", "a=2^n", "b=pandig(a)" : "c=3^n", "d=pandig(c))) 16, 65536, 0 : 43046721, 0 17, 131072, 0 : 129140163, 0 18, 262144, 0 : 387420489, 0 19, 524288, 0 : 1162261467, 0 20, 1048576, 0 : 3486784401, 0 21, 2097152, 0 : 10460353203, 0 22, 4194304, 0 : 31381059609, 0 23, 8388608, 0 : 94143178827, 0 24, 16777216, 0 : 282429536481, 0 25, 33554432, 0 : 847288609443, 0 26, 67108864, 0 : 2541865828329, 0 27, 134217728, 0 : 7625597484987, 0 28, 268435456, 0 : 22876792454961, 0 29, 536870912, 0 : 68630377364883, 0 30, 1073741824, 0 : 205891132094649, 0 31, 2147483648, 0 : 617673396283947, 0 32, 4294967296, 0 : 1853020188851841, 0 33, 8589934592, 0 : 5559060566555523, 0 34, 17179869184, 0 : 16677181699666569, 0 35, 34359738368, 0 : 50031545098999707, 0 36, 68719476736, 0 : 150094635296999121, 0 37, 137438953472, 0 : 450283905890997363, 0 38, 274877906944, 0 : 1350851717672992089, 0 39, 549755813888, 0 : 4052555153018976267, 1 40, 1099511627776, 0 : 12157665459056928801, 0 41, 2199023255552, 0 : 36472996377170786403, 0 42, 4398046511104, 0 : 109418989131512359209, 0 43, 8796093022208, 0 : 328256967394537077627, 0 44, 17592186044416, 0 : 984770902183611232881, 0 45, 35184372088832, 0 : 2954312706550833698643, 1 46, 70368744177664, 0 : 8862938119652501095929, 0 47, 140737488355328, 0 : 26588814358957503287787, 1 48, 281474976710656, 0 : 79766443076872509863361, 1 49, 562949953421312, 0 : 239299329230617529590083, 0 50, 1125899906842624, 0 : 717897987691852588770249, 0 51, 2251799813685248, 0 : 2153693963075557766310747, 0 52, 4503599627370496, 0 : 6461081889226673298932241, 0 53, 9007199254740992, 0 : 19383245667680019896796723, 1 54, 18014398509481984, 0 : 58149737003040059690390169, 0 55, 36028797018963968, 0 : 174449211009120179071170507, 0 56, 72057594037927936, 0 : 523347633027360537213511521, 0 57, 144115188075855872, 0 : 1570042899082081611640534563, 1 58, 288230376151711744, 0 : 4710128697246244834921603689, 0 59, 576460752303423488, 0 : 14130386091738734504764811067, 0 60, 1152921504606846976, 0 : 42391158275216203514294433201, 1 61, 2305843009213693952, 0 : 127173474825648610542883299603, 2 62, 4611686018427387904, 0 : 381520424476945831628649898809, 1 63, 9223372036854775808, 0 : 1144561273430837494885949696427, 1 64, 18446744073709551616, 0 : 3433683820292512484657849089281, 1 65, 36893488147419103232, 0 : 10301051460877537453973547267843, 1 66, 73786976294838206464, 0 : 30903154382632612361920641803529, 0 67, 147573952589676412928, 0 : 92709463147897837085761925410587, 2 68, 295147905179352825856, 1 : 278128389443693511257285776231761, 0 69, 590295810358705651712, 0 : 834385168331080533771857328695283, 1 70, 1180591620717411303424, 1 : 2503155504993241601315571986085849, 1 (14:10:07) gp > n=70; until(b>1&&d>1,print(n++", "a=2^n", "b=pandig(a)" : "c=3^n", "d=pandig(c))) 71, 2361183241434822606848, 0 : 7509466514979724803946715958257547, 1 72, 4722366482869645213696, 0 : 22528399544939174411840147874772641, 1 73, 9444732965739290427392, 0 : 67585198634817523235520443624317923, 1 74, 18889465931478580854784, 0 : 202755595904452569706561330872953769, 1 76, 75557863725914323419136, 0 : 1824800363140073127359051977856583921, 2 77, 151115727451828646838272, 0 : 5474401089420219382077155933569751763, 2 78, 302231454903657293676544, 0 : 16423203268260658146231467800709255289, 2 79, 604462909807314587353088, 1 : 49269609804781974438694403402127765867, 1 80, 1208925819614629174706176, 0 : 147808829414345923316083210206383297601, 1 ... ... 82, 4835703278458516698824704, 1 : 1330279464729113309844748891857449678409, 1 83, 9671406556917033397649408, 0 : 3990838394187339929534246675572349035227, 1 84, 19342813113834066795298816, 1 : 11972515182562019788602740026717047105681, 0 85, 38685626227668133590597632, 0 : 35917545547686059365808220080151141317043, 2 86, 77371252455336267181195264, 0 : 107752636643058178097424660240453423951129, 2 87, 154742504910672534362390528, 1 : 323257909929174534292273980721360271853387, 1 88, 309485009821345068724781056, 2 : 969773729787523602876821942164080815560161, 2 (14:15:13) gp > n=88; until(b>2&&d>2,print(n++", "a=2^n", "b=pandig(a)" : "c=3^n", "d=pandig(c))) 89, 618970019642690137449562112, 1 : 2909321189362570808630465826492242446680483, 1 90, 1237940039285380274899124224, 0 : 8727963568087712425891397479476727340041449, 2 ... 92, 4951760157141521099596496896, 0 : 78551672112789411833022577315290546060373041, 2 93, 9903520314283042199192993792, 0 : 235655016338368235499067731945871638181119123, 2 94, 19807040628566084398385987584, 1 : 706965049015104706497203195837614914543357369, 1 95, 39614081257132168796771975168, 1 : 2120895147045314119491609587512844743630072107, 2 96, 79228162514264337593543950336, 1 : 6362685441135942358474828762538534230890216321, 2 97, 158456325028528675187087900672, 1 : 19088056323407827075424486287615602692670648963, 2 98, 316912650057057350374175801344, 1 : 57264168970223481226273458862846808078011946889, 2 99, 633825300114114700748351602688, 0 : 171792506910670443678820376588540424234035840667, 2 100, 1267650600228229401496703205376, 1 : 515377520732011331036461129765621272702107522001, 0 101, 2535301200456458802993406410752, 1 : 1546132562196033993109383389296863818106322566003, 0 102, 5070602400912917605986812821504, 0 : 4638397686588101979328150167890591454318967698009, 1 103, 10141204801825835211973625643008, 1 : 13915193059764305937984450503671774362956903094027, 1 104, 20282409603651670423947251286016, 2 : 41745579179292917813953351511015323088870709282081, 0 105, 40564819207303340847894502572032, 1 : 125236737537878753441860054533045969266612127846243, 2 106, 81129638414606681695789005144064, 1 : 375710212613636260325580163599137907799836383538729, 0 107, 162259276829213363391578010288128, 0 : 1127130637840908780976740490797413723399509150616187, 2 108, 324518553658426726783156020576256, 0 : 3381391913522726342930221472392241170198527451848561, 2 109, 649037107316853453566312041152512, 1 : 10144175740568179028790664417176723510595582355545683, 3 110, 1298074214633706907132624082305024, 1 : 30432527221704537086371993251530170531786747066637049, 2 111, 2596148429267413814265248164610048, 1 : 91297581665113611259115979754590511595360241199911147, 1 112, 5192296858534827628530496329220096, 1 : 273892744995340833777347939263771534786080723599733441, 2 113, 10384593717069655257060992658440192, 2 : 821678234986022501332043817791314604358242170799200323, 2 114, 20769187434139310514121985316880384, 2 : 2465034704958067503996131453373943813074726512397600969, 2 115, 41538374868278621028243970633760768, 1 : 7395104114874202511988394360121831439224179537192802907, 1 116, 83076749736557242056487941267521536, 2 : 22185312344622607535965183080365494317672538611578408721, 2 117, 166153499473114484112975882535043072, 2 : 66555937033867822607895549241096482953017615834735226163, 4 118, 332306998946228968225951765070086144, 2 : 199667811101603467823686647723289448859052847504205678489, 3 119, 664613997892457936451903530140172288, 3 : 599003433304810403471059943169868346577158542512617035467, 2 120, 1329227995784915872903807060280344576, 2 : 1797010299914431210413179829509605039731475627537851106401, 2 121, 2658455991569831745807614120560689152, 1 : 5391030899743293631239539488528815119194426882613553319203, 1 122, 5316911983139663491615228241121378304, 1 : 16173092699229880893718618465586445357583280647840659957609, 4 123, 10633823966279326983230456482242756608, 1 : 48519278097689642681155855396759336072749841943521979872827, 2 124, 21267647932558653966460912964485513216, 1 : 145557834293068928043467566190278008218249525830565939618481, 3 125, 42535295865117307932921825928971026432, 2 : 436673502879206784130402698570834024654748577491697818855443, 3 126, 85070591730234615865843651857942052864, 2 : 1310020508637620352391208095712502073964245732475093456566329, 2 127, 170141183460469231731687303715884105728, 1 : 3930061525912861057173624287137506221892737197425280369698987, 2 128, 340282366920938463463374607431768211456, 1 : 11790184577738583171520872861412518665678211592275841109096961, 2 129, 680564733841876926926749214863536422912, 1 : 35370553733215749514562618584237555997034634776827523327290883, 3 130, 1361129467683753853853498429727072845824, 1 : 106111661199647248543687855752712667991103904330482569981872649, 4 131, 2722258935367507707706996859454145691648, 2 : 318334983598941745631063567258138003973311712991447709945617947, 2 132, 5444517870735015415413993718908291383296, 1 : 955004950796825236893190701774414011919935138974343129836853841, 3 133, 10889035741470030830827987437816582766592, 3 : 2865014852390475710679572105323242035759805416923029389510561523, 4 (14:15:34) gp > Last fiddled with by LaurV on 2013-01-07 at 07:28 Reason: syntax highlighting :P