What are the next four numbers in the sequence 1, 2, 3, 4, 5, 3, 7, 4, 6, 5, 11, 4, __, __, __, __?
When does the number 12 first appear in the sequence?
(In reply to
re(4): When 12 appears by Jer)
See my previous post.
5 open "kempner.txt" for output as #2
10 for N=1 to 512
20 F=1
30 for M=1 to N
40 F=gcd(F*M,N)
50 if F=N then print N,M:print #2,N,M:cancel for:goto 100
60 next
100 next N
110 close #2
agrees with the OEIS text:
1 1
2 2
3 3
4 4
5 5
6 3
7 7
8 4
9 6
10 5
11 11
12 4
13 13
14 7
15 5
16 6
17 17
18 6
19 19
20 5
21 7
22 11
23 23
24 4
25 10
26 13
27 9
28 7
29 29
30 5
31 31
32 8
33 11
34 17
35 7
36 6
37 37
38 19
39 13
40 5
41 41
42 7
43 43
44 11
45 6
46 23
47 47
48 6
49 14
50 10
51 17
52 13
53 53
54 9
55 11
56 7
57 19
58 29
59 59
60 5
61 61
62 31
63 7
64 8
65 13
66 11
67 67
68 17
69 23
70 7
71 71
72 6
73 73
74 37
75 10
76 19
77 11
78 13
79 79
80 6
81 9
82 41
83 83
84 7
85 17
86 43
87 29
88 11
89 89
90 6
91 13
92 23
93 31
94 47
95 19
96 8
97 97
98 14
99 11
100 10
101 101
102 17
103 103
104 13
105 7
106 53
107 107
108 9
109 109
110 11
111 37
112 7
113 113
114 19
115 23
116 29
117 13
118 59
119 17
120 5
121 22
122 61
123 41
124 31
125 15
126 7
127 127
128 8
129 43
130 13
131 131
132 11
133 19
134 67
135 9
136 17
137 137
138 23
139 139
140 7
141 47
142 71
143 13
144 6
145 29
146 73
147 14
148 37
149 149
150 10
151 151
152 19
153 17
154 11
155 31
156 13
157 157
158 79
159 53
160 8
161 23
162 9
163 163
164 41
165 11
166 83
167 167
168 7
169 26
170 17
171 19
172 43
173 173
174 29
175 10
176 11
177 59
178 89
179 179
180 6
181 181
182 13
183 61
184 23
185 37
186 31
187 17
188 47
189 9
190 19
191 191
192 8
193 193
194 97
195 13
196 14
197 197
198 11
199 199
200 10
201 67
202 101
203 29
204 17
205 41
206 103
207 23
208 13
209 19
210 7
211 211
212 53
213 71
214 107
215 43
216 9
217 31
218 109
219 73
220 11
221 17
222 37
223 223
224 8
225 10
226 113
227 227
228 19
229 229
230 23
231 11
232 29
233 233
234 13
235 47
236 59
237 79
238 17
239 239
240 6
241 241
242 22
243 12
244 61
245 14
246 41
247 19
248 31
249 83
250 15
251 251
252 7
253 23
254 127
255 17
256 10
257 257
258 43
259 37
260 13
261 29
262 131
263 263
264 11
265 53
266 19
267 89
268 67
269 269
270 9
271 271
272 17
273 13
274 137
275 11
276 23
277 277
278 139
279 31
280 7
281 281
282 47
283 283
284 71
285 19
286 13
287 41
288 8
289 34
290 29
291 97
292 73
293 293
294 14
295 59
296 37
297 11
298 149
299 23
300 10
301 43
302 151
303 101
304 19
305 61
306 17
307 307
308 11
309 103
310 31
311 311
312 13
313 313
314 157
315 7
316 79
317 317
318 53
319 29
320 8
321 107
322 23
323 19
324 9
325 13
326 163
327 109
328 41
329 47
330 11
331 331
332 83
333 37
334 167
335 67
336 7
337 337
338 26
339 113
340 17
341 31
342 19
343 21
344 43
345 23
346 173
347 347
348 29
349 349
350 10
351 13
352 11
353 353
354 59
355 71
356 89
357 17
358 179
359 359
360 6
361 38
362 181
363 22
364 13
365 73
366 61
367 367
368 23
369 41
370 37
371 53
372 31
373 373
374 17
375 15
376 47
377 29
378 9
379 379
380 19
381 127
382 191
383 383
384 8
385 11
386 193
387 43
388 97
389 389
390 13
391 23
392 14
393 131
394 197
395 79
396 11
397 397
398 199
399 19
400 10
401 401
402 67
403 31
404 101
405 9
406 29
407 37
408 17
409 409
410 41
411 137
412 103
413 59
414 23
415 83
416 13
417 139
418 19
419 419
420 7
421 421
422 211
423 47
424 53
425 17
426 71
427 61
428 107
429 13
430 43
431 431
432 9
433 433
434 31
435 29
436 109
437 23
438 73
439 439
440 11
441 14
442 17
443 443
444 37
445 89
446 223
447 149
448 8
449 449
450 10
451 41
452 113
453 151
454 227
455 13
456 19
457 457
458 229
459 17
460 23
461 461
462 11
463 463
464 29
465 31
466 233
467 467
468 13
469 67
470 47
471 157
472 59
473 43
474 79
475 19
476 17
477 53
478 239
479 479
480 8
481 37
482 241
483 23
484 22
485 97
486 12
487 487
488 61
489 163
490 14
491 491
492 41
493 29
494 19
495 11
496 31
497 71
498 83
499 499
500 15
501 167
502 251
503 503
504 7
505 101
506 23
507 26
508 127
509 509
510 17
511 73
512 12
|
|
Posted by Charlie
on 2017-08-29 09:54:43 |
re(5): When 12 appears
