# This b-file was computed by Antti Karttunen, 2018-12-31 # 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); # A064989(n) = {my(f); f = factor(n); if((n>1 && f[1,1]==2), f[1,2] = 0); for (i=1, #f~, f[i,1] = precprime(f[i,1]-1)); factorback(f)}; # A122111(n) = if(1==n,n,prime(bigomega(n))*A122111(A064989(n))); # A156552(n) = if(1==n, 0, if(!(n%2), 1+(2*A156552(n/2)), 2*A156552(A064989(n)))); # A322864(n) = if(1==n, 0, A122111(A156552(n))); # for(n=1,105,write("b322864.txt", n, " ", A322864(n))); 1 0 2 1 3 2 4 4 5 3 6 8 7 5 8 16 9 6 10 9 11 7 12 32 13 11 14 128 15 12 16 18 17 13 18 64 19 17 20 256 21 15 22 72 23 19 24 512 25 10 26 216 27 24 28 54 29 23 30 36 31 29 32 2048 33 192 34 36864 35 20 36 25 37 31 38 36028797018963968 39 120 40 144 41 37 42 4096 43 41 44 524288 45 48 46 3136 47 43 48 32768 49 14 50 27 51 360 52 4294967296 53 47 54 1024 55 21 56 1048576 57 61440 58 128000 59 53 60 16384 61 59 62 47852207848256971424537054170092404736 63 384 64 100 65 320 66 1152 67 61 68 20736 69 54043195528445952 70 8192 71 67 72 108 73 71 74 153896443516551168 75 96 76 452984832 77 28 78 1296 79 73 80 4194304 81 30 82 2905031112847772163362909068503388358620919016932876451934491776108228574768946343958351022440155060365391068469340930048 83 79 84 75 85 168 86 286654464000 87 4928 88 98 89 83 90 50 91 33 92 47775744 93 179200 94 6101260602379434196992 95 504 96 864 97 89 98 81 99 90 100 288 101 97 102 6400 103 101 104 72057594037927936 105 60