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 A292252 #8 Sep 12 2017 20:37:25
%S A292252 0,1,0,1,0,2,0,1,0,1,0,1,0,2,0,1,0,1,0,1,0,1,0,1,0,3,0,1,0,3,0,1,0,1,
%T A292252 0,1,0,2,0,1,0,1,0,1,0,2,0,1,0,1,0,1,0,3,0,1,0,1,0,1,0,1,0,1,0,2,0,1,
%U A292252 0,2,0,1,0,2,0,1,0,1,0,1,0,1,0,1,0,2,0,1,0,1,0,1,0,4,0,1,0,1,0,1,0,2,0,1,0,2,0,1,0,1,0,1,0,1,0,1,0,1,0,1
%N A292252 Number of trailing 2-digits in ternary representation of A048673(n).
%H A292252 Antti Karttunen, <a href="/A292252/b292252.txt">Table of n, a(n) for n = 1..16384</a>
%F A292252 a(n) = A007949(1+A048673(n)).
%F A292252 a(n) = A007814(1+A291759(n)).
%F A292252 a(2n) = 1 + A292251(n/2), a(2n+1) = 0.
%t A292252 If[First@ # == 2, Length@ #, 0] &@ Last@ Split@ IntegerDigits[#, 3] & /@ Table[(Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n, {n, 120}] (* _Michael De Vlieger_, Sep 12 2017 *)
%o A292252 (Scheme)
%o A292252 (define (A292252 n) (A007949 (+ 1 (A048673 n))))
%o A292252 (define (A292252 n) (A007814 (+ 1 (A291759 n))))
%o A292252 (define (A292252 n) (if (odd? n) 0 (+ 1 (A292251 (/ n 2)))))
%Y A292252 Cf. A007814, A007949, A048673, A291759, A292251 (even bisection subtracted by one).
%Y A292252 Cf. also A292242, A292262.
%K A292252 nonn,base
%O A292252 1,6
%A A292252 _Antti Karttunen_, Sep 12 2017