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 A022337 #12 Feb 06 2020 07:17:28 %S A022337 0,0,1,0,1,2,0,1,2,0,3,1,2,0,3,1,4,2,0,3,1,4,2,0,5,3,1,4,2,0,5,3,1,6, %T A022337 4,2,0,5,3,1,6,4,2,0,7,5,3,1,6,4,2,0,7,5,3,1,8,6,4,2,0,7,5,3,1,8,6,4, %U A022337 2,0,9,7,5,3,1,8,6,4,2,0,9,7,5,3,1,10,8,6,4,2,0,9,7,5,3,1,10,8,6,4,2,0,11,9,7,5 %N A022337 Exponent of 5 (value of j) in n-th number of form 3^i*5^j. %H A022337 Amiram Eldar, <a href="/A022337/b022337.txt">Table of n, a(n) for n = 1..10000</a> %F A022337 a(n) = A112765(A003593(n)) = A112754(n) - A022336(n). - _Reinhard Zumkeller_, Sep 18 2005 %t A022337 s = {}; m = 12; Do[n = 5^k; While[n <= 5^m, AppendTo[s, n]; n *= 3], {k, 0, m}]; IntegerExponent[#, 5] & /@ Union[s] (* _Amiram Eldar_, Feb 06 2020 *) %Y A022337 Cf. A003593, A022336, A112754, A112762, A112765. %K A022337 nonn %O A022337 1,6 %A A022337 _Clark Kimberling_