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 A292251 #10 Sep 12 2017 20:38:10 %S A292251 0,0,1,0,0,0,1,0,0,0,0,0,2,0,2,0,0,0,1,0,0,0,1,0,0,0,2,0,0,0,0,0,1,0, %T A292251 1,0,1,0,0,0,0,0,1,0,0,0,3,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,1,0,1,0,2,0, %U A292251 0,0,0,0,0,0,1,0,2,0,1,0,0,0,2,0,0,0,1,0,0,0,0,0,1,0,4,0,1,0,0,0,0,0,3,0,0,0,0,0,1,0,0,0,0,0,1,0,1,0,1,0 %N A292251 The 3-adic valuation of A048673(n). %H A292251 Antti Karttunen, <a href="/A292251/b292251.txt">Table of n, a(n) for n = 1..16384</a> %F A292251 a(n) = A007814(1+A292250(n)). %F A292251 a(n) = A007949(A048673(n)). %F A292251 a(n) = A007949(3*A048673(n)) - 1. %F A292251 a(n) = A292252(2n)-1. %t A292251 IntegerExponent[#, 3] & /@ Table[(Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n, {n, 120}] (* _Michael De Vlieger_, Sep 12 2017 *) %Y A292251 One less than the even bisection of A292252. %Y A292251 Cf. A007814, A007949, A048673, A292250. %Y A292251 Cf. also A292241, A292261. %K A292251 nonn %O A292251 1,13 %A A292251 _Antti Karttunen_, Sep 12 2017