|
Search: id:A057684
|
|
|
| A057684 |
|
Trajectory of 13 under the `13x+1' map. |
|
+0
8
|
|
| 13, 170, 85, 17, 222, 111, 37, 482, 241, 3134, 1567, 20372, 10186, 5093, 463, 6020, 3010, 1505, 301, 43, 560, 280, 140, 70, 35, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7, 1, 14, 7
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
The `Px+1 map': if x is divisible by any prime < P then divide out these primes one at a time starting with the smallest; otherwise multiply x by P and add 1.
|
|
MAPLE
|
with(numtheory): a := proc(n, S, Q) option remember: local k; if n=0 then RETURN(S); fi: for k from 1 to Q do if a(n-1, S, Q) mod ithprime(k) = 0 then RETURN(a(n-1, S, Q)/ithprime(k)); fi: od: RETURN(ithprime(Q+1)*a(n-1, S, Q)+1) end; # run with S=13 and Q=5.
|
|
CROSSREFS
|
Cf. A057446, A057216, A057522, A057534, A057614. See also A033478, A057688, A057684, A057685, A057686, A057687, A057689, A057690, A057691.
Sequence in context: A001022 A020533 A067220 this_sequence A053153 A041314 A065544
Adjacent sequences: A057681 A057682 A057683 this_sequence A057685 A057686 A057687
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Oct 20 2000
|
|
|
Search completed in 0.002 seconds
|
