- 注册时间
- 2008-2-6
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 51573
- 在线时间
- 小时
|
楼主 |
发表于 2009-1-9 14:06:11
|
显示全部楼层
11次的
Prelude Primes> let aa = [(x, n) | x <- [1..9999], let s = x^11, let invs = inv
s, let l = l10 s, let n = (div invs 10) * 10^l + s, isPrime n]
Prelude Primes> let bb = [(x, n) | x <- [1..9999], let s = x^11, let invs = inv
s, let l = l10 s, let n = s * 10^(l-1) + mod invs (10^(l-1)), isPrime n]
Prelude Primes> aa
[(189,985152220769602421970299010992079124206967022251589),(251,1525609622392866
8824312194249121342886682932269065251),(327,322745910927073602469741175457114796
4206370729019547223),(447,309728542794744992513782853241423582873152994474972458
27903),(747,306930143356462996684115415314040413514511486699264653341039603),(99
7,35816348038417377007081617509476967490571618070077371483084361853),(1089,98415
94056448263476094480354054552554504530844906743628446504951489),(1549,9454579119
5062360957754552230278132123187203225545775906326059119754549),(1821,12022138621
041020096002375548454103730145484557320069002014012683122021),(2013,730270140162
6336259533276478505829912199285058746723359526336261041072037),(2209,90836355075
32076703089974274811751116111571184724799803076702357055363809),(2371,1750040264
24100271638187456210611213313312116012654781836172001424620400571),(2537,3197504
11421891592460464788933876320828023678339887464064295198124114057913),(2557,3968
98072039800655896646572438488155030551884834275646698556008930270898693),(2623,7
23576156925312719617509371612112734040437211216173905716917213529651675327),(264
7,307310430329681109875034344096145896444698541690443430578901186923034013703),(
2881,186305372590647522401251573909767494311134947679093751521042257460952735036
81),(3221,1247142726954068665204393680978766617838716667879086393402566860459627
2417421),(3299,99268060069180755185557905956587883730503738878565950975558155708
196006086299),(3333,715575761742045155911442915111482288365638822841115192441195
51540247167575517),(3379,9715734469019986819231224570207407465565564704702075422
1329186899109644375179),(3727,32891452125650373927921139383264771372919273177462
38393112972937305652125419823),(3749,9478790170202148868233034038157521226502056
221257518304303328688412020710978749),(4047,303861665681447464585383820472384614
9674769416483274028383585464744186566168303),(4163,78336793195341950825600860426
91034438056508344301962406800652805914359139763387),(4233,7160781585611457549821
290740570525368187818635250750470921289457541165851870617),(4239,936832672709030
3509427153739098339041497941409338909373517249053030907276238639),(4537,31953769
0483758882279173002250226640767616767046622052200371972288857384096735913),(4611
,1121822247357262580135974228890036103300200330163009882247953108526275374222812
11),(4739,9314920735974486242603222977875745804707270740854757877922230624268447
95370294139),(4793,7540245069628878693525054178393026377660306677362039387145052
53968788269605420457),(4909,9053224906726880469822771787026268445989398954486262
07871772289640886276094223509),(5321,1250160530190423993159523276574754521186968
11254574756723259513993240910350610521),(5511,1111826727965271142118139295071793
4080424142408043971705929318112411725697276281111),(5769,96989447655728288674708
443988197277326553235562377279188934480747688282755674498969),(6017,336149583375
22982918439566700580258756247374265785208500766593481928922573385941633),(6127,3
24353723059057253607570212132609816008654568006189062312120757063527509503273534
23),(6141,1455091947722652534260510599033340224148646841422043330995015062435256
2277491905541),(6483,76854070207818516739307058108848533692205850229633584880185
070393761581870207045867),(6559,951462422342624448118099233706852788625669665268
87258607332990811844426243224264159),(6663,7880681535442794062344633466347620876
219411149126780267436643364432604972445351860887),(6781,185618157494015251818165
5566665600268983931393898620065666655561818152510494751816581),(6813,73299244619
56808243885519484055222327897641467987232225504849155883428086591644299237),(704
9,940560267912334922094705848133747682320531213502328674733184850749022943321976
2065049),(7269,96456499923437817224621430516882656109739929937901656288615034126
42271873432999465469),(7757,3941470539886360193471467832365242123138116118313212
425632387641743910636889350741493),(7799,997588337906319496991321018614084076147
2946492741670480416810123199694913609733885799),(8539,93951483962886758480047078
6451791646065895717598560646197154687074008485768826938415939),(8673,77730745858
8060106049594074851779254263688020886362452977158470495940601060885854703777),(8
933,7193340355146952189351940114614212396484098289048469321241641104915398125964
15530433917),(9617,3302237184981575151807245200715609956328705650782365990651700
25427081515751894817322033),(9699,9966510782563742931345387865278264545609441714
49065454628725687835431392473652870156699)]
Prelude Primes> bb
[(48,3116402981210161152511610121892046113),(137,3190995845161846964443131344469
6481615485990913),(226,785584363645360569916149767941619965063546363485587),(362
,139892449880043161896222330888033222698161340088944298931),(363,144202528456305
031619414751878157414916130503654825202441),(389,3086353126582792475503577378987
37753055742972856213536803),(392,33585107073752721624827691008001967284261272573
7070158533),(457,18158426010805077599762589679397698526799577050801062485181),(5
55,1538943991472952821372607421875781247062731282592741993498351),(907,341727679
61511327357981895914184348141959818975372311516976727143),(913,36743333348843522
527545478184913731948187454572522534884333334763),(973,7400162269174990859110831
8958347774385981380119580994719622610047),(1049,16925065969572168187895620099990
49409999002659878186127596956052961),(1276,1460015338014627706467282172090777677
70902712827646077264108335100641),(1387,3654610282513836885016798016468056365086
46108976105886383152820164563),(1698,3383097739644757077946364997567467525764765
7994636497707574469377903833),(1875,10069641120935557410120964050292968757869292
05046902101475553902114696001),(2104,3576869457517482509437241627093499904099943
907261427349052847157549686753),(2249,744533099441927913533835879323721224942212
7323978538335319729144990335447),(2297,93922781830317588964577841720799125535521
99702714877546988571303818722939),(2312,1008941828350803776730879392301763788888
73671032939780376773080538281498001),(2315,1023436611311178861034350386166992187
57812996616830534301688711131166343201),(2356,1241446896892532121161485053744224
66565664224473505841611212352986986441421),(2446,1875085086648469325297942603301
01288969882101033062497925239648466805805781),(2563,3134979231133347183053780309
25824209878902428529030873503817433311329794313),(2574,3286199825507739561185301
02429627658242856726924201035811659377055289916823),(2844,9845221980510223756593
75628839750205444502057938826573956573220150891225489),(3010,1837517363158923337
4599533010000000000000000000001033599547333298513637157381),(3174,32936401383682
743190482507820594864742424746849502870528409134728638310463923),(3511,999399491
46244058939289698928234505911111950543282989698293985044264194993999),(3561,1167
593612416418762506440949034289727161617279824309490446052678146142163957611),(35
77,12266151987373495389862710016129161864737468161921610017268983594373789151662
21),(3618,1390446194319754909857968530907134789632369874317090358697589094579134
916440931),(3670,162677206762189283404234487830000000000000000000003878443240438
2981267602776261),(3736,19791355650503181502952386268329525903363309525923862683
25920518130505655319791),(3883,3025807506873756247708495452875902604467644062095
782545948077426573786057085203),(3919,334909832679771979084394609805477601111911
1106774508906493480979177976238909433),(4321,98045333797324659783497492346107723
99521259932770164329479438795642379733354089),(4472,1430605016737180809634668119
90537960161282161069735099118664369080817376105060341),(4607,1984268028073395921
27170895393394915261434162519493393598071721295933708208624891),(4796,3087954686
08510954603778913476309638184969481836903674319877306459015806864597803),(5388,1
11097288017599856793639116923681648934912194398461863296119363976589957108827901
11),(5416,1176156769226654488575803986532018327388161883723810235689308575884456
6229676516711),(5588,16589006291767815460082133056053293822771217722839235065033
128006451876719260098561),(5678,197764925536165073952129140102317226473472743746
22713201041921259370561635529467791),(5960,3370612733603785183127505207296000000
0000000000000006927025057213815873063372160733),(6406,74551481389386048902030404
491973489038745654783098437919440403020984068398318415547),(6707,123541073204984
0353389192076289839300828043408280039389826702919833530489402370145321),(6714,12
49668163898443718640353404800492113700864680073112940084043530468173448983618669
421),(6858,157823724658575448038152313922245309077299299277090354222931325183084
4575856427328751),(6896,16771417916279460540572931952811713715240969042517317118
25913927504506497261971417761),(6918,1736945270527149103342828618193515397240832
380427935153918168282433019417250725496371),(6968,188013728498852555723282544802
7347623084032304803267437208445282327555258894827310881),(7000,19773267430000000
00000000000000000000000000000000000000000000000000000000003476237791),(7390,3589
95349226272259987910478501390000000000000000000009310587401978995227262294359985
3),(7397,36275366232087447959712324601290671070114535411070176092106423217959744
78023266357263),(7398,3632934742196579723807631942418415801751552551571085148142
491367083279756912474392363),(7916,764827756967912210606849366928866055657881618
8756550668829663948606012219769657728467),(7932,78200541593915648129677053534344
64484589568659854844644343535077692184651939514500287),(8078,9557456657013457656
122273305914722132867072707682312274195033722216567543107566547559),(8156,106230
53976556291539112063909568999856275456545726589998659093602119351926556793503260
1),(8192,11150372599265311570767859136324180752990208020992570814236319587670751
1356299527305111),(8200,11270738569548768071680000000000000000000000000000000000
0000000008617086784596583707211),(8222,11607860945167888646817826899794002382256
1282165228320049799862871864688876154906870611),(8284,12607848815917113677977150
3796624546427043848340724645426697305177977631171951884870621),(8408,14846351315
1408177554222291944965677168721929127861776569449192222455771804151315364841),(8
448,1564202433079221253079850977377195692077875257877029659177377905897035212297
03342024651),(8508,1690839144277102548510430119619114009047859295874090041191691
10340158452017724419380961),(8528,1735078420855864728958088812943189052961587278
51692509813492188808598274685580248705371),(8537,1755327252804949556168470681889
63857020919131919020758369881860748616559494082527235571),(8582,1859831555978313
78170344689434429185181511686115181581924434986443071873138795551389581),(8973,3
03608792990921406795337527070944847186954777459681748449070725733597604129099297
806303),(8978,305474956562127904424288293993205346895646727646598643502399392882
424409721265659474503),(9045,331508205966891028847210056998046586425781252187524
685640899650012748820198669502805133),(9086,348417577843082087110384025330003103
707279363972707301300033520483011780280348775714843),(9185,392528113490827029528
355411256968072753906252609357270869652114553825920728094311825293),(9695,711256
00741916064544885077195380045849609375739069485400835917705884454606191470065211
7),(9970,96749057161807007737148308436185300000000000000000000035816348038417377
0070816175094769)] |
|