Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ClearAll[rt]
- rt[[Alpha]_, [Beta]_, [Gamma]_][k_] :=
- Last@RecurrenceTable[{p[n] == [Alpha] p[n - 1] + p[n - 2],
- p[1] == [Beta], p[2] == [Gamma]}, p, {n, k}];
- rt[2, 1, 2][2^(13) - 1]
- 7312966920516534160659058365847935573103656449784463113534190244109315
- 4552136232869110723377846929307903983176439030768390751657429537042606
- 6177650544111790742931593209381737684829526185002361700417069153073305
- 0433190550470877036764460380161535058548551697047369584399166625209369
- 4218433644231666076155802966580535196595870086238991837169501072112984
- 9393124845855958137737414265960475955930215404919405541448947053455541
- 6025203622281208173628673044685901173827121957875702950058339163335858
- 4094100620230774348121803842954300268892947775224771484091811982232155
- 8832794371695086427702562531341687651812269127093881936666074124229384
- 7967691209999651103340113690489465208208178272406851960325686083276032
- 7855193606976910900401314566943535616437144772153061399500200104131070
- 8905818835991106948593409238951250336669365093371703341353609837647600
- 1517731328530726219167430421961529355081541766676236811147883968566796
- 5481672056570539898096681352896499219518667858378449531795264280349907
- 3070255098298178622447661114539048082525636413932085175203051276707872
- 4607569477629972601954082929795907672602796584814417598364297690821124
- 0465579193965444332490712284329237229625192366000932773882481464121200
- 9698237459436651372015197635135226109154720061240575551850467279283164
- 7040665409084950462964535211169925680177273076134157035401272031081306
- 8805461941824839125350765352091947330704111096537253019293771565770039
- 6593499968875601336881492484578919812568542182746677879478513427102089
- 5895788796912659574978229556739646865454006298573310283751081049485871
- 3474524310469573440257569455700042379795147432033519487819916532310519
- 0964209030651196744051902818896720252427387205535759057293051410473384
- 0321333113149123253829629795001329187191006813635532001312691660864999
- 3951396130259045485800392974437233728640136047271444647142735113402771
- 3756968054177542287489028877604055173344215462699471896066169406825900
- 7800953468610401729473531931158367533683743972205083381280387019317547
- 5996586189811411675358118988883678733146159232170596546017878595812741
- 3918870136611342204846999944169848691410473345583322616894657677850458
- 4263819110094329821686257451218498162966369968708936667605858940389071
- 8590657291040141665783266119948938601580608962078963691414886671067563
- 3658321980357496853761610723016812305485404419613741155395128645346570
- 9187249752807815412128178951282988656093086089890156565285902845182744
- 4963436760459489276390532805179695501563021611411355570668119676620422
- 9153946669673928783805988775828642318271207527825757421483695296134003
- 8166193929714311292852042246451773070230567000152170352301227448005513
- 5984310027278329471994731743229537673803099590205428054139652741893153
- 8478187506174844431663914302099609036341482010941399792130223470643045
- 8401112694318637996572656857886453821895507295414196204731751153016665
- 9077419918872777308130498519915658104761626499922896707485905358378196
- 3263690273434791590571591938774020242580636822052719504254145197792180
- 6323087599298046571164450520828258801347372800184478919879278176680351
- 9626964927676490626967191773270441771883436178032711433238557909568129
- 9516491753248951243571660316738612419125138005061378049
- In[106]:= PrimeQ[%105]
- Out[106]= False
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement