# Computed 2017-11-02 in MIT/GNU Scheme Release 9.0.1 || Microcode 15.1 || Runtime 15.7 || Win32 1.8 || SF 4.41 || LIAR/i386 4.118 || Edwin 3.116
#
# with the following Scheme-program (see also https://github.com/karttu/IntSeq )
#
# (define (A098008 n)
#   (let loop ((visited (list n)) (i 1))
#      (let ((next (A001065 (car visited))))
#          (cond ((zero? next) i)
#                ((member next visited) => (lambda (transientplus1) (- (length transientplus1) 1)))
#                (else (loop (cons next visited) (+ 1 i)))
#          )
#      )
#   )
# )
# 
# (define (A001065 n) (- (A000203 n) n))
# 
# With A000203 implemented as under Program-section of https://oeis.org/A000203
#
1 1
2 2
3 2
4 3
5 2
6 0
7 2
8 3
9 4
10 4
11 2
12 7
13 2
14 5
15 5
16 6
17 2
18 4
19 2
20 7
21 3
22 6
23 2
24 5
25 1
26 7
27 3
28 0
29 2
30 15
31 2
32 3
33 6
34 8
35 3
36 4
37 2
38 7
39 3
40 4
41 2
42 14
43 2
44 5
45 7
46 8
47 2
48 6
49 4
50 3
51 4
52 9
53 2
54 13
55 3
56 5
57 3
58 4
59 2
60 11
61 2
62 9
63 3
64 4
65 3
66 12
67 2
68 5
69 4
70 6
71 2
72 9
73 2
74 5
75 5
76 5
77 3
78 11
79 2
80 7
81 5
82 6
83 2
84 6
85 3
86 9
87 7
88 7
89 2
90 10
91 4
92 6
93 4
94 4
95 2
96 9
97 2
98 3
99 4
100 5
101 2
102 18
103 2
104 7
105 8
106 6
107 2
108 10
109 2
110 7
111 3
112 9
113 2
114 17
115 3
116 5
117 4
118 10
119 2
120 12
121 8
122 5
123 8
124 6
125 3
126 16
127 2
128 3
129 3
130 6
131 2
132 11
133 4
134 7
135 9
136 8
137 2
138 178
139 2
140 5
141 5
142 6
143 2
144 9
145 4
146 6
147 6
148 11
149 2
150 177
151 2
152 12
153 6
154 8
155 3
156 8
157 2
158 7
159 4
160 11
161 3
162 4
163 2
164 7
165 9
166 10
167 2
168 175
169 6
170 9
171 3
172 9
173 2
174 16
175 3
176 5
177 4
178 7
179 2
180 52
181 2
182 9
183 4
184 6
185 3
186 15
187 3
188 12
189 3
190 10
191 2
192 13
193 2
194 6
195 6
196 4
197 2
198 14
199 2
200 4
201 3
202 8
203 3
204 10
205 3
206 7
207 9
208 7
209 3
210 52
211 2
212 11
213 6
214 8
215 5
216 10
217 4
218 10
219 4
220 0
221 3
222 176
223 2
224 17
225 8
226 6
227 2
228 8
229 2
230 9
231 7
232 11
233 2
234 175
235 3
236 7
237 3
238 7
239 2
240 11
241 2
242 3
243 9
244 11
245 3
246 15
247 7
248 12
249 8
250 11
251 2
252 17
253 4
254 7
255 5
256 6
257 2
258 14
259 8
260 11
261 4
262 8
263 2
264 31
265 3
266 9
267 5
268 8
269 2
270 13
271 2
272 12
273 4
274 6
275 3