A037101 Trajectory of 3 under map n->7n+1 if n odd, n->n/2 if n even.

3, 22, 11, 78, 39, 274, 137, 960, 480, 240, 120, 60, 30, 15, 106, 53, 372, 186, 93, 652, 326, 163, 1142, 571, 3998, 1999, 13994, 6997, 48980, 24490, 12245, 85716, 42858, 21429, 150004, 75002, 37501, 262508, 131254, 65627, 459390, 229695, 1607866, 803933

Offset

0,1

Links

Robert Israel, Table of n, a(n) for n = 0..10000

Maple

a:= proc(n) option remember; local v;
  v:= procname(n-1);
  if v::odd then 7*v+1 else v/2 fi
end proc:
a(0):= 3:
map(a, [$0..100]); # Robert Israel, Jan 24 2020

Mathematica

nxt[n_]:=If[OddQ[n], 7n+1, n/2]; NestList[nxt, 3, 40] (* Harvey P. Dale, Jun 05 2012 *)

Prog

(Python)
def iter(n): return 7*n+1 if n%2 == 1 else n//2
def aupton(terms):
  alst = [3]
  for n in range(1, terms+1): alst.append(iter(alst[-1]))
  return alst
print(aupton(43)) # Michael S. Branicky, Mar 22 2021

Crossrefs

Cf. A063871.

Sequence in context: A122495 A100977 A364163 * A226028 A248626 A360366

Adjacent sequences: A037098 A037099 A037100 * A037102 A037103 A037104

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved