# This b-file was computed by Antti Karttunen, 2020-01-21 # in GP/PARI CALCULATOR Version 2.9.4 (released) amd64 running linux (x86-64/GMP-6.1.2 kernel) 64-bit version, compiled: Dec 19 2017, gcc version 7.3.0 (Ubuntu 7.3.0-1ubuntu1), threading engine: pthread # with the following program: # # default(parisizemax,2^31); # A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565 # A331312(n) = { my(f=factor(n)); for (i=1, #f~, my(p=f[i, 1]); f[i, 1] = A019565(f[i, 2]); f[i, 2] = (2^(primepi(p)-1))-1; ); factorback(f); }; # for(n=1,40,write("b331312.txt", n, " ", A331312(n))); 1 1 2 1 3 2 4 1 5 8 6 2 7 128 8 1 9 3 10 8 11 32768 12 2 13 2147483648 14 128 15 16 16 1 17 9223372036854775808 18 3 19 170141183460469231731687303715884105728 20 8 21 256 22 32768 23 57896044618658097711785492504343953926634992332820282019728792003956564819968 24 2 25 27 26 2147483648 27 6 28 128 29 6703903964971298549787012499102923063739682910296196688861780721860882015036773488400937149083451713845015929093243025426876941405973284973216824503042048 30 16 31 89884656743115795386465259539451236680898848947115328636715040578866337902750481566354238661203768010560056939935696678829394884407208311246423715319737062188883946712432742638151109800623047059726541476042502884419075341171231440736956555270413618581675255342293149119973622969239858152417678164812112068608 32 1 33 65536 34 9223372036854775808 35 1024 36 3 37 16158503035655503650357438344334975980222051334857742016065172713762327569433945446598600705761456731844358980460949009747059779575245460547544076193224141560315438683650498045875098875194826053398028819192033784138396109321309878080919047169238085235290822926018152521443787945770532904303776199561965192760957166694834171210342487393282284747428088017663161029038902829665513096354230157075129296432088558362971801859230928678799175576150822952201848806616643615613562842355410104862578550863465661734839271290328348967522998634176499319107762583194718667771801067716614802322659239302476074096777926805529798115328 38 170141183460469231731687303715884105728 39 4294967296 40 8