LINKS
Paolo Xausa, <a href="/A258822/b258822_1.txt">Table of n, a(n) for n = 1..10000</a>
Paolo Xausa, <a href="/A258822/b258822_1.txt">Table of n, a(n) for n = 1..10000</a>
reviewed
approved
proposed
reviewed
editing
proposed
<a href="/index/3#3x1">Index entries for sequences related to 3x+1 (or Collatz) problem</a>
Paolo Xausa, <a href="/A258822/b258822_1.txt">Table of n, a(n) for n = 1..10000</a>
A258822[n_]:=Count[MapIndexed[{#1}==#2-1&, NestWhileList[If[OddQ[#], 3#+1, #/2]&, n, #>1&]], True]; Array[A258822, 100] (* Paolo Xausa, Nov 06 2023 *)
approved
editing
proposed
approved
editing
proposed
The number 3 appears first at a(63105). Do all nonnegative numbers appear? See A258824.
proposed
editing
editing
proposed