This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A070167 #19 Feb 16 2025 08:32:46
%S A070167 1,2,3,3,3,6,7,3,9,3,7,12,7,9,15,3,7,18,19,7,21,7,15,24,25,7,27,9,19,
%T A070167 30,27,21,33,7,15,36,37,25,39,7,27,42,43,19,45,15,27,48,43,33,51,7,15,
%U A070167 54,55,37,57,19,39,60,27,27,63,21,43,66,39,45,69,15,27,72,73,43,75,25
%N A070167 a(n) is the smallest starting value that produces a Collatz sequence in which n occurs.
%C A070167 a(n) <= n. - _Robert G. Wilson v_, Jan 14 2015
%H A070167 T. D. Noe, <a href="/A070167/b070167.txt">Table of n, a(n) for n=1..10000</a>
%H A070167 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CollatzProblem.html">Collatz Sequence</a>
%H A070167 <a href="/index/3#3x1">Index entries for sequences related to 3x+1 (or Collatz) problem</a>
%t A070167 Collatz[n_] := NestWhileList[If[EvenQ[#], #/2, 3 # + 1] &, n, # > 1 &]; nn = 100; t = Table[0, {nn}]; n = 0; zeros = nn; While[zeros > 0, n++; c = Collatz[n]; Do[If[i <= nn && t[[i]] == 0, t[[i]] = n; zeros--], {i, c}]]; t (* _T. D. Noe_, Dec 03 2012 *)
%o A070167 (Haskell)
%o A070167 import Data.List (findIndex)
%o A070167 import Data.Maybe (fromJust)
%o A070167 a070167 n = fromJust (findIndex (elem n) a070165_tabf) + 1
%o A070167 -- _Reinhard Zumkeller_, Jan 02 2013
%Y A070167 Cf. A006667, A070165.
%Y A070167 Cf. A010120, A054646.
%K A070167 nonn
%O A070167 1,2
%A A070167 _Eric W. Weisstein_, Apr 23 2002