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 A106844 #8 Aug 24 2024 06:04:32 %S A106844 0,1,0,2,0,1,0,3,1,0,2,0,1,4,0,0,2,1,0,3,1,2,0,0,5,1,0,1,3,0,0,2,1,0, %T A106844 4,2,0,3,1,0,0,1,6,0,2,0,0,1,2,0,4,1,0,1,3,0,2,1,5,0,0,0,3,1,0,0,4,0, %U A106844 2,1,1,2,0,7,0,1,3,0,0,1,1,2,0,0,3,0,1,5,0,2,1,0,2,0,4,1,0,0,3,2,0,6,0,1 %N A106844 Exponent of 2 in the prime factorization of A093641(n). %C A106844 Write down all numbers of form 2^i*prime(j), j>0, i>=0, sort them, then extract i. %H A106844 Amiram Eldar, <a href="/A106844/b106844.txt">Table of n, a(n) for n = 1..10000</a> %F A106844 a(n) = A007814(A093641(n)). %t A106844 f[n_] := Module[{e = IntegerExponent[n, 2]}, If[!CompositeQ[n / 2^e], e, Nothing]]; Array[f, 200] (* _Amiram Eldar_, Aug 24 2024 *) %Y A106844 Cf. A007814, A093641. %K A106844 nonn %O A106844 1,4 %A A106844 _Ralf Stephan_, May 06 2005 %E A106844 a(1)-a(2) inserted by _Amiram Eldar_, Aug 24 2024