|
%I #8 Sep 12 2017 20:37:25
%S 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 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 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 Number of trailing 2-digits in ternary representation of A048673(n).
%H Antti Karttunen, <a href="/A292252/b292252.txt">Table of n, a(n) for n = 1..16384</a>
%F a(n) = A007949(1+A048673(n)).
%F a(n) = A007814(1+A291759(n)).
%F a(2n) = 1 + A292251(n/2), a(2n+1) = 0.
%t 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 (Scheme)
%o (define (A292252 n) (A007949 (+ 1 (A048673 n))))
%o (define (A292252 n) (A007814 (+ 1 (A291759 n))))
%o (define (A292252 n) (if (odd? n) 0 (+ 1 (A292251 (/ n 2)))))
%Y Cf. A007814, A007949, A048673, A291759, A292251 (even bisection subtracted by one).
%Y Cf. also A292242, A292262.
%K nonn,base
%O 1,6
%A _Antti Karttunen_, Sep 12 2017
|
