# This b-file was computed by Antti Karttunen, 2019-10-15
# 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);
# A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
# A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
# A328383(n) = if(n<=1,-n,my(u=A003415(n),k=1); if(u==n,return(0)); while(u && (n%u) && (u%n), k++; u = A003415(u)); if(u%n,-k,k));
# for(n=2,90,write("b328383.txt", n, " ", A328383(n)));
2 -1
3 -1
4 0
5 -1
6 -2
7 -1
8 2
9 -3
10 -2
11 -1
12 9
13 -1
14 -4
15 23
16 1
17 -1
18 -4
19 -1
20 5
21 -2
22 -2
23 -1
24 2
25 -3
26 24
27 0
28 18
29 -1
30 -2
31 -1
32 6
33 -5
34 -2
35 85
36 7
37 -1
38 -4
39 21
40 10
41 -1
42 -2
43 -1
44 35
45 53
46 -4
47 -1
48 2
49 -5
50 44
51 18
52 34
53 -1
54 2
55 21
56 4
57 -3
58 -2
59 -1
60 16
61 -1
62 -6
63 21
64 1
65 -5
66 -2
67 -1
68 7
69 85
70 -2
71 -1
72 4
73 -1
74 23
75 55
76 5
77 -4
78 -2
79 -1
80 4
81 9
82 -2
83 -1
84 42
85 -3
86 42
87 105
88 10
89 -1
90 19